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Abstract 


This  roooarch  effort  was  directed  towards  developing  flexible, 
operationally-oriented  methodologies  to  assess  the  effectiveness  of 
conventional  airfield  attack.  Two  methodologies  were  pursued:  computer 
simulation  and  response  surface  methodology.  ;  r  , 


.  (AAP)*_  originally  developed  by-  the  University  of  Oklahoma  for  the  Joint 
Technic^  Coordinating  Group  for  Munitions  Effectiveness  and  modified  by 
Captain  Robert  N.  MigHn,  tJSAff,  in  19847^:^Tte-~pgograa  was  modified 
further  to  simplify  input  file  generation,  translated  from  FORTRAN  V  to 
PASCAL,  and  implemented  on  microcomputers.  The  PASCAL  version  of  AAP 
consists  of  four  separate  programs:  three  to  build  the  input  file  and  a 
fourth,  called  AAPMOD,  to  accomplish  the  simulation.  A  user  manual 
provides  complete  documentation  of  the  new  implementation. 

The  response  surface  methodology  (RSM)  demonstrated  how  to  predict 
system  responses  in  a  simplified  airfield  attack  scenario  consisting  of 
two  runways.  A  screening  design,  a  first-order  analysis,  and  a  second- 
order  analysis  were  accomplished.  The  analysis  employed  least-squares 
regression  and  various  statistical  tests  to  fit  the  response  surfaces. 
The  report  includes  an  overview  of  RSM. 

The  findings  -of — fehe-ana4y»i-e-  indicated  that  response  surface 
methodology  was  capable  of  determining  optimum  operating  conditions,  but 
only  for  very  narrow  ranges  of  the  input  parameters.  The  methodology 
would  offer  little  flexibility  to  aircrews  during  mission  planning. 
Further,  changes  to  the  target  airdrome  would  dictate  reaccomplishment 
of  the  response  surface  fit. 

The  microcomputer  program  is  recommended  for  timely,  '-conventional 

at  the  wing  and  squadron  levels.  I^t, ,  u-^'V  L 
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Preface 


A  thesis  effort  is  by  no  means  a  small  undertaking,  and  in  choosing 
an  area  for  analysis,  we  sought  a  topic  that  would  be  of  wide  interest. 
Naturally,  we  wanted  the  analysis  to  be  interesting  to  ourselves,  and  in 
this  vein,  our  extensive  backgrounds  in  tactical  air  force  fighter  and 
reconnaissance  missions  helped  narrow  the  search.  We  wanted  to  spark 
the  interest  of  our  advisor,  Major  James  R.  Coakley,  a  fighter  pilot  of 
long  standing.  Further,  we  wanted  to  research  an  area  of  interest  tc 
the  tactical  air  force  community  in  general.  Airfield  attack  certainly 
is  a  complex  problem,  constantly  discussed  by  a  large  number  of 
interested  parties,  and  worthy  of  analysis  effort.  Hence,  the  area  of 
airfield  attack  seemed  perfect. 

Simply  stated,  we  could  not  have  produced  this  thesis  without  the 
assistance  of  a  number  of  people.  First,  we  must  acknowledge  the  fine 
efforts  of  Captain  Robert  N.  Miglin,  who  wrote  a  thesis  last  year  on  the 
same  area  of  research.  His  project  formed  the  basis  for  our  follow-on 
work,  and  it  provided  a  wealth  of  information  and  references  for  which 
we  are  grateful.  Second,  we  are  most  appreciative  of  our  thesis 
advisor,  Major  James  R,  Coakley,  for  his  instruction,  advice, 
assistance,  motivation,  and  continuing  support  throughout  our  tenure  at 
the  Air  Force  Institute  of  Technology,  and  especially  during  our  thesis 
research.  Third,  we  thank  Lt  Col  Palmer  W.  Smith  for  introducing  us  to 
the  area  of  Response  Surface  Methodology  and  greatly  assisting  us  in 
this  difficult  methodology.  Finally,  we  would  like  to  express  our 
gratitude  to  Lt  Col  Ivy  D,  Cook,  Jr.,  our  thesis  reader,  for  his  expert 
opinions  and  invaluable  suggestions. 

It  would  have  been  impossible  to  complete  this  project  without  the 
love,  understanding,  and  support  from  our  families.  To  them,  we  wish  to 
say  a  special  word  of  thanks,  and  remind  them  that  they,  too,  are  an 
important  part  of  our  nation's  security  because  of  their  efforts  to  keep 
us  performing  at  peak  capacity. 

THOMAS  K.  GREEN,  Captain,  USAF  DAVID  A.  R00DH0USE,  Major,  USAF 
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Abstract 


This  research  effort  “"was  directed  towards-  developing  flexible, 
operationally-oriented  methods6l©gi§£  to  assess  the  effectiveness  of 
conventional  airfield  attack .xjwo^methodologies  were  pursued:  computer 
simulation  and  response  surface  methiodologyV^TT*  £  £ ir~sf  wte7 ked  e><  Ck 

'--The'  computer  simulatioil(was  based  on  the  Attack  Assessment  Program 
(AAP), — originally  developed  by  the  University  of  Oklahoma  for  the  Joint 
Technical  Coordinating  Cr5‘up~ftrr~Muni£.ions  Effectiveness.-and  modified  by 
Captain  Robert  N.  Miglin,  USAF,  in"'l98S7''5*7The  program  was  modified 
i — f uit her-  to  simplify  input  file  generation,  translated  ^frrom  FORTRAN--^*  to 
PASCAL,  and  implemented  on  microcomputers.  The  PASCAL  version  of  AAP 
consists  of  four  separate  programs:  three  to  build  the  input  file  and  a 
fourth,  called  AAPMOD,  to  accomplish  the  simulation.  A  user  manual 
provides  complete  documentation  of  the  new  implementation.  77u  S<COM  o'  We/tuoo’* 

%fie  response  surface  methodology  (RSM^demonstrated  how  to  predict 
system  responses  in  a  simplified  airfield  attack  scenario  consisting  of 
two  runways.  A  screening  design,  a  first-order  analysis,  and  eT-second- 
order  analysis  were  accomplished.  The  analysis  employed  least-squares 
regression  and  various  statistical  tests  to  fit  the  response  surfaces. 

The-report  Includes  an  overview  of  RSM^M  jh  c&4clfo)i 

The  findings  of  the  analysis  indicated  that  '■response  surface^_f\  M 
^methodology  was  capable  of  determining  optimum  operating  conditions,  but 
only  for  very  narrow  ranges  of  the  input  parameters.  The  methodology^ — «, 
would  offer  little  flexibility  to  aircrews  during  mission  planning. 

Further,  changes  to  the  target  airdrome  would  dictate  reaccomplishment  i 

of  the  response  surface  fit.  .  JfeyU>Oldt>  ;  Ai'ri o l(H  <Pu£s 

rtn  .  .  .  <  •  »  .  •  .  _  ..  • _ ,  /  "W 


The  microcomputer  program  is  recommended  for  timely, 
airfield  attack  analysis  at  the  wing  and  squadron  levels. 
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AN  ANALYSIS  OF  OPTIMAL  RUNWAY  ATTACK  PARAMETERS 

I.  Introduction 

Overview  of  the  Report 

This  analysis  investigates  optimal  attack  parameters  for  fighter 
and  attack  aircraft  delivering  conventional  munitions  against  airfields. 
The  report  is  divided  into  chapters  corresponding  to  the  major  areas  of 
emphasis.  The  chapters  provide  background  material  before  describing 
more  detailed  implementations.  Chapter  I  is  an  introduction  to  the 
airfield  attack  problem.  Chapter  II  considers  previous  efforts  in  the 
area  of  airfield  attack.  Chapter  III  describes  the  Attack  Assessment 
Program — MODIFIED  (AAPMOD),  the  computer  model  used  in  this  analysis. 
Chapter  IV  describes  modifications  to  AAPMOD  and  its  loading  program 
(AAPIN).  Chapter  V  covers  the  initial  screening  experiment  conducted  to 
eliminate  insignificant  variables.  Chapter  VI  provides  a  primer  for 
Response  Surface  Methodology  (RSM),  which  combines  previously  developed 
mathematical  tools  to  find  predicted  system  responses  and  optimum 
operating  conditions.  Chapter  VII  describes  RSM  as  applied  to  this 
thesis  effort.  Chapter  VIII  makes  use  of  the  response  surface  fit  and 
the  calculated  stationary  points  to  highlight  potential  applications  for 
the  output*  Chapter  IX  considers  the  sensitivity  of  the  analysis  to 
various  parameters  and  distributions  used  or  assumed.  Chapter  X 
concludes  with  a  summary  of  the  study  and  recommended  areas  for  further 
research. 


Since  shortly  after  its  inception,  airpower  has  assumed  offensive 
as  well  as  defensive  roles.  Airpower  offers  flexibility  and  speed  that 
are  unmatched  by  other  assets  available  to  ground  commanders.  Ground 
commanders  receive  air  support  directly  in  the  form  of  close  air 
support,  battlefield  air  interdiction,  and  deep  interdiction.  Only  the 
time  frame  differs  as  to  when  the  ground  commander  will  benefit  from 
such  support.  The  effectiveness  of  direct  support  missions  can  be 
eroded  significantly  by  enemy  air  activity.  Consequently,  the  ground 
commander  is  supported  indirectly  by  friendly  actions  which  might  limit 
the  enemy's  ability  to  prosecute  an  effective  air  war.  Indirect  support 
of  this  type  is  called  "counterair." 

The  requirement  to  conduct  counterair  operations  is  widely 
recognized.  Air  Force  Manual  1-1,  Functions  and  Basic  Doctrine  of  the 
United  States  Air  Force  (13),  highlights  counterair  operations  as  a 
primary  task  of  tactical  air  forces.  Counterair  is  a  broad  term  which 
can  include  either  defensive  or  offensive  operations.  An  example  of 
defensive  counterair  might  be  friendly  surface-to-air  missiles  or 
friendly  interceptor  aircraft.  Offensive  counterair  can  cover  attacks 
on  airborne  aircraft  behind  enemy  lines,  attacks  on  lines  of 
transportation  feeding  into  airdromes,  and  attacks  on  the  airdromes 
themselves.  This  thesis  will  concentrate  on  attacks  against  enemy 
airdromes. 

Attacks  against  an  enemy  airdrome  can  employ  various  means  of 
achieving  the  same  objective  — that  objective  being  ,to  reduce  enemy 
sortie  generation  capabilities  to  minimal  levels  or  to  render  the 
airdrome  unusable  for  enemy  operations.  The  means  can  include 


conventional,  chemical,  or  nuclear  attack  against  runway  or  taxi 
surfaces,  unsheltered  aircraft,  hardened  shelters,  command,  posts, 
operations  centers,  quarters/dining  facilities,  maintenance  facilities, 
fuel  storage,  and  others.  In  some  cases,  runways  and  taxiways  are  the 
easiest  to  see  since  the  other  facilities  can  be  camouflaged  and 
hardened  more  easily.  Runway  camouflage  (also  known  as  "toning-down") 
is  underway,  in  many  parts  of  the  world.  Nevertheless,  large  surfaces 
will  be  easier  to  find  than  small  structures,  .  and  may  be  quite 
extensive. 

The  multiplicity  of  taxi  and  runway  surfaces  at  many  airfields 
makes  the  attack  of  these  surfaces  difficult.  Aircraft  require  certain 
widths  and  lengths  of  surface  for  takeoff.  The  width  must  be  at  least 
as  wide  as  the  landing  gear  with  some  margin  for  error  being  highly 
desirable.  A  common  range  of  minimum  widths  for  fighter  operations  is 
50-75  feet.  The  required  length  is  a  function'  of  aircraft 
characteristics  and  payload.  Minimum  runway  length  for  fighter 
operations  can  vary  from  as  little  as  3000  feet  up  to  5000  feet  or  more. 
Distances  this  short  usually  require  partial  weapons  loads,  partial  fuel 
loads,  or  both.  Takeoff  distances  are  usually  longer  than  landing 
distances  for  a  given  aircraft  unless  landing  at  heavy  gross  weights,. 
Aircraft  touchdown  points  during  landing  are  subject  to  a  higher  margin 
of  error  compared  to  takeoff  parameters.  Either  takeoff  or  landing 
distance  could  be  the  critical  variable  depending  on  the  specific 
aircraft  and  situation.  If  attacks  against  runways  or  taxiways  cut  the 
surfaces  in  sections  smaller  than  the  minimum  dimensions  for  takeoff  and 
landing,  the  airfield  has  been  closed. 


An  alternate  approach  would  be  to  attack  taxiways  and  other 
approaches  to  the  runways;  however,  this  would  require  closer  crater 
spacing.  .  Maintenance  personnel  could  marshall  taxiing  aircraft  around 
intervening  craters  via  a  meandering  path  where  the  same  craters  might 
prevent  high-speed  takeoffs  and  landings.  High-speed  aircraft  have  a 
restricted  turn  ability  while  on  the  ground.  Such  aircraft  must  follow 
what  is  essentially  a  straight  line  along  the  surface  with  only  minor 
deviations  permitted.-  High-speed  turns  might,  sheer  the  landing  gear  or 
rupture  the  tires.  Slow-speed  taxi  over  cracked  and  buckled  pavement 
may  be  possible  where  high  speeds  over  the  same  pavement  might  cause  the 
tires  to  rupture.  This  translates  into  a  much  smaller  required  area  for 
taxiing  aircraft.  Consequently,  taxi  surfaces  must  be  handled 
differently  in  targeting  and  assessment  of  damage.  Also,  crater  repair 
criteria  for  taxiways  are  less  stringent  since  the  patches  do  not  have 
to  withstand  the  shock  of  aircraft  landings. 

Since  airfield  attack  is  notoriously  difficult,  requiring  many 
sorties  and  a  great  deal  of  ammunition,  ground  and  air  commanders  are 
interested  in  using  the  available  aircraft  sorties  as  efficiently  as 
possible.  Target  selection  and  force  composition  cannot  be  tested 
effectively  in  peacetime  due  to  the  expense  of  destroying  airfield 
facilities;  wartime  would  be  too  late.  Therefore,  the  analysis  of 
optimal  airfield  attack  options  is  a  natural  problem  for  computer 
modeling. 

In  discussions  with  Air  Force  Institute  of  Technology  (AFIT)  Class 
GST-84M,  Brigadier  General  Goodson,  Deputy  Chief  of  Staff  for  Plans, 
United  States  Air  Forces  in  Europe  (USAFE),  emphasized  the  critical  need 
for  estimating  survivability  and  effectiveness  tradeoffs  (20).  This  was 


reiterated  in  February  of  1984  in  a  class  discussion  with  Lt  Col 
Moriarity,  Chief  Analyst,  Headquarters  United  States  Air  Force  (HQ  USAF) 
Studies  and  Analysis.  He  presented  current  models  for  survivability- 
effectiveness  tradeoff s  , and  sought  interested  parties  at  AFIT  to 
continue  the  work  (39). 

Many  of  the  current  airfield  attack  models  are  quite  large  and 
require:  a  mainframe  computer  for  execution.  This  is  acceptable  for 
force  structure  analysis  at  HQ  USAF,  but  aircraft  operators  will  have 
very  limited  mainframe  computer  support  at  the  front  lines.  However,  it 
is  highly  likely  that  microcomputers  will  be  available.  Microcomputer 
analysis  of  potential  airfield  attacks  could  be  extremely  useful. 

High  level  interest  in  survivability-effectiveness  tradeoff  studies 
has  resulted  in  a  series  of  AFIT  thesis  efforts.  .  Various  airfield 
attack  models  were  considered  by  members  of  AFIT  Class  GST-84M.  Captain 
Robert  Miglin  streamlined  the  Attack  Assessment  Program  (AAP)  and 
associated  computer  code  into  a  program  called  "AAPMOD",  which  returns 
expected  damage  levels  and  probabilities  of  cutting  runway/taxiway 
surfaces.  Another  major  effort  emphasized  aircraft  survivability  during 
airfield  attacks.  Captains  Michael  J.  Foley  and  Stephen  6.  Gress 
produced  a  continuous  simulation  model  which  analyzes  aircraft 
probability  of  survival  in  a  restricted  scenario  with  a  fixed  attack 
heading.  They  considered  target  damage  levels,  but  did  not  tie  them 
directly  to  the  survivability  aspects  of  the  problem. 

Summary.  Offensive  counterair  is  a  long-standing  tactical  air 
mission,  necessary  for  the  indirect  support  of  ground  commanders. 
Airfield  attack  is  a  valid  offensive  counterair  mission.  Many 


counterair  targets  are  easy  to  hide  or  harden  and  are  usually  well 
defended.  Research  in  this  area  is  still  needed. 

Chapter  I  provides  the  backdrop  for  further  discussion  and 
research.  The  next  chapter  expands  this  background  by  considering 
previous  research  concerning  airfield  attacks. 


II .  Historical  Development 


Existing  Methodologies 

This  section  provides  brief  descriptions  of  existing  models  and 

...  \ 

methods* 

The  Joint  Munitions  Effectiveness  Manuals  (JMEMs)  (28)  are  the 
accepted  standard  for  assessing  weapons  effects  and  levels  of  target 
destruction.  These  documents  consider  the  threat  by  decreasing  delivery 
accuracy  as  the  threat  increases.  No  consideration  is  given  to  whether 
the  aircraft  arrives  in  a  position  to  deliver  ordnance.  Range  and 
deflection  errors  for  both  weapons  delivery  and  ballistics  are  assumed 
independent  of  one  another.  For  large-scale  attacks,  JMEMs 
methodologies  are  complicated  and  tedious, 

TAC  Repeller  incorporates  aircraft  attrition  from  surface-to-air 
missiles  (SAMs)  and  anti-aircraft  artillery  (AAA),  Flight  paths  must  be 
programmed  in  advance.  Aircraft  maneuvers  are  not  permitted  and  target 
damage  assessment  is  not  performed  (39), 

TAGSEM  is  an  Air  Force  Systems  Command  model  which  outputs  target 
damage  in  a  fashion  consistent  with  the  current  series  of  thesis  efforts 
concerning  survivability  and  effectiveness.  However,  weapons  lethality 
and  aircraft  survivability  must  be  fed  into  the  model  as  inputs  when 
these  are  the  desired  outputs  (39), 

In  1976,  the  Rand  Corporation  developed  the  Airbase  Damage 
Assessment  Model  (AIDA)  (16),  This  model  duplicates  JMEM  figures  but 
does  not  yield  survivability  figures.  It  considers  point  impact  weapons 
only  and  requires  a  large  computer  to  run  the  program.  AIDA  offers  no 
advantages  over  JMEMs,  and  JMEMs  are  already  well  accepted. 


mm 


Attacking  Hardened  Air  Bases  (AHAB)  (4:232)  is  another  Rand 
Corporation  model  which  incorporates  decision  maker  value  functions  to 
maximize  attack  results.  Value  functions  are  hard  to  assess.  In 
addition,  AHAB  attacks  are  limited  to  perpendicular  runway  cuts  with  a 
single  weapon  type.  The  model  is  too  restricted  for  this  thesis  effort. 

RUNW  was  developed  at  Supreme  Headquarters  Allied  Powers  Europe 
(SHAPE)  in  the  early  70’ s  to  assess  runway  cuts  with  a  single  weapon 
type.  No  flexibility  is  allowed  in  designing  attacks  (35:17). 

In  1967,  USAF  Studies  and  Analysis  developed  a  dynamic  programming 
tactical  air  warfare  model  (TAWM)  (35:9),  Since  then,  newer  and  more 
responsive  models  have  been  developed.  One  of  these,  the  Theater  Air 
Warfare  Model  84  (TAWM84),  requires  quantification  of  many  continuous 
levels  of  target  damage.  Some  of  the  inputs  are  subjective  payoff 
matrices  relating  aircraft  lost  to  targets  destroyed.  Developing  the 
inputs  for  this  large  model  proves  quite  complicated. 

TAG  Avenger  (4:84)  is  an  air-to-air  combat  model  which  produces 
results  for  one-on-one  engagements.  It  incorporates  Newton's  equations 
of  motion  in  three  dimensions  and  aerodynamic  performance  equations.  It 
is  useful  for  comparing  alternative  aircraft.  TAC  Avenger  is  typical  of 
models  which  provide  inputs  for  more  highly  aggregated  models.  TAC 
Avenger  does  not  consider  air-to-ground  operations. 

TACTICS  II  is  the  one-on-one  air-to-air  model  preferred  by 
Battilega  (4:153).  This  model  is  a  very  detailed  simulation  of  aircraft 
maneuvers  during  aerial  combat.  Air-to-ground  applications  are  not 
modeled. 


TAC  Brawler  (4:137)  is  also  an  air-to-air  model  which  considers 
few-on-few  engagements. 


TAG  Contender  (4:123)  is  a  theater-level  two-sided  sortie 
allocation  model.  TAC  Contender  uses  game  theory  in  search  of  optimal 
sortie  allocation  considering  tons  of  close  air  support  (CAS)  munitions 
delivered.  This  model  has  been  criticized  for  identifying  local  optima 
which  can  be  far  removed  from  global  optima. 

TAC  Spartan  (4:159)  was  the  working  title  for  the  campaign-level  ' 
model  which  evolved  into  TAC  Gladiator. 

TAC  Gladiator  (4:129)  is  a  campaign-level  model  of  a  Central 
European  Scenario.  TAC  Gladiator  considers  each  classic  role  of 
tactical  airpower  including  offensive  counterair.  It  is  designed  to 
analyze  force  structure  problems  by  employing  varying  forces  at  the 
start  of  the  war.  This  model  is  too  highly  aggregated  to  use  for 
specific  airfield  attack  missions. 

TAC  Appraiser  (4:131)  combines  exchange  ratios  and  kill  results 
from  TAC  Gladiator,  adds  effectiveness  measures  and  costs,  and 
calculates  tactical  air  force  structures  and  cost/effectiveness 
tradeoffs. 

TAC  Warrior  (4:136,35:12)  approaches  theater-level  analysis  from 
the  bottom-to-top  where  TAC  Gladiator  and  TAC  Appraiser  aggregate  data 
before  calculations  commence.  TAC  Warrior  is  very  large  and  requires  * 
vast  numbers  of  inputs,  including  inputs  from  TAC  Avenger,  JMEN^  LOOM 
FORMAT,  TAG  Turner,  P001,  and  SAM  models*  JMEN  captures  the  essence  of 
JHEM  models.  LOOM  FORMAT  generates  properly  formatted  input  from  the 
Logistics  Composite  Model  (LCOM)  for  TAC  Turner  which  is  a  Monte  Carlo 
model  of  sortie  surge  operations.  The  SAM  series  models  various  enemy 
surface-to-air  missiles,  ,  P001  models  anti-aircraft  artillery  (AAA) 
engagements. 
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TAC  Thunder  is  a  follow-on  model  to  TAC  Warrior,  but  is  still  being 
written  by  USAF  Studies  and  Analysis.  It  will  be  a  large  model  as  well. 

The  Attack  Assessment  Program  (AAP)  (27)  is  a  large  Monte-Carlo 
model  which  allows  for  variable  attacks  against  airfields  using  several 
munitions  types  and  a  variety  of  weapons  delivery  patterns.  This  model 
is  the  basis  for  Miglin’s  thesis  which  produced  AAPMOD  (35).  AAP  is 


used  extensively  at  Eglin  AFB  for  new  munition  development.  Exhaustive 
work  has  been  performed  by  a  variety  of  interested  parties.  Whitehead 
(55)  has  researched  the  airfield  attack  problem  thoroughly  using  AAP  and 
concludes  that  the  probability  of  cutting  runways  and  the  expected 
number  of  craters  on  the  runway  are  conflicting  goals.  He  stated  that 
the  highest  probabilities  of  cutting  runways  are  achieved  by  attacking 
perpendicular  to  the  primary  axis  of  the  surface.  This  was  verified  by 
Douglas  (15).  However,  the  number  of  craters  on  the  runway  is  optimized 
by  attacking  along  the  axis  of  the  runway.  Aircrews  are  reluctant  to 
use  this  approach  because  of  the  chance  of  missing  the  surface  entirely 
on  a  single  pass.  If  an  expected  value  approach  is  used,  these 
occasional  misses  are  overshadowed  by  the  large  number  of  craters  which 
can  be  produced  by  passes  which  do  hit  the  runway.  Of  course,  all  the 
impacts  could  lie  on  one  side  of  the  runway,  allowing  enemy  aircraft  to 
use  the  other  half.  Whitehead  stated  that  the  best  compromise  between 
the  conflicting  goals  is  to  attack  at  an  angle  of  30°  relative  to  the 
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Previous  Thesis  Efforts 

In  1981,  Leek  and  Schmitt  (32)  addressed  aircraft  survivability  in 
a  thesis  encompassing  Forward  Looking  Infrared  Radar  (FLIR)  equipped 
fighter  aircraft.  They  present  a  detailed  approach  to  modeling  SAM  and 
AAA  encounters  but  did  not  address  effectiveness  in  the  form  of  target 
damage. 

Anderson  and  Nenner  (1)  extended  this  work  in  1982  by  expanding  the 
SAM  and  AAA  command  and  control  process.  Aircraft  damage  was  not 
assessed  as  this  model  addressed  Wild  Weasel  effectiveness  in 
suppressing  enemy  threat  systems, 

Kizer  and  Neal  (29)  addressed  aircraft  survivability  versus  target 
damage  in  a  close  air  support  (CAS)  scenario.  Point  damages  were 
assessed  based  on  use  of  cannon  and  Maverick  missiles. 

Pemberton  (43)  assigns  aiopoints  for  perpendicular  runway  cuts 
using  set  theory  to  find  an  "open"  cell  by  means  of  discrete 
approximation.  This  wartime  tool  is  designed  for  fast  execution  and 
addresses  only  precision,  singly-released  weapons. 

Haehida  (22)  improved  on  Pemberton's  discrete  approximations  by 
eliminating  redundancies  and  improving  the  search  algorithm, 

Foley  and  Cress  (18)  pox  farmed  a  three-dimensional  continuous 
simulation  in  which  a  probability  of  survival  was  determined  for  a  fixed 
attack  with  a  limited  threat  scenario.  The  attack  was  assessed  for 
target  damage  by  means  of  JMEHs  routines.  The  output  is  a  valuable 
resource,  but  the  continuous  simulation  model  takes  too  long  to  execute. 
For  this  reason,  the  output  from  Foley  and  Cress's  model  may  well  be  the 
key  to  more  efficient  deterministic  models. 


In  1984,  Miglin  (35)  modified  AAP,  calling  the  new  program  the 
Attack  Assessment  Program — MODIFIED  (AAPMOD).  He  also  developed  a 
program,  called  AAPIN,  to  create  the  complicated  file  required  to  run 
AAPMOD*  AAPMOD  can  be  considered  a  subset  of  its  parent  program,  AAP. 
Both  programs  model  airfield  attack  with  Monte-Carlo  iterations  of  a 
scenario  specified  by  the  analyst  in  the  input  file.  The  database 
contains  the  number,  type,  and  location  of  targets  to  be  attacked; 
number  and  type  of  weapons  to  be  employed  per  attack  pattern;  number  of 
submunitions  per  weapon  deployed;  extent  of  damage  inflicted  upon 
targets  for  munition  impacts;  and  attack  pass  information  for  each 
aircraft  participating  in  the  mission.  AAP's  additional  capabilities 
include  a  larger  database  and  multiple  attacks  on  the  target  complex 
with  damage  repair  after  each  attack  wave.  AAPMOD  was  designed  for 
shorter  execution  times  and  smaller  computers;  hence  the  aforementioned 
features  of  AAP  were  deleted.  Output  available  from  the  programs 
includes  the  expected  number  of  hits  per  target,  expected  area  damaged, 
probabilities  of  cutting  runways  and  taxiways,  and  the  expected  number 
of  craters  to  repair  before  a  cut  runway  could  be  re-opened. 

Limitations  of  Existing  Methodologies 

As  mentioned  in  Chapter  X,  the  objectives  of  airfield  attack  are  to 
reduce  significantly  the  enemy  sortie  generation  capabilities  or  prevent 
aircraft  operations  from  enemy  airdrome  surfaces*  Existing  models  do 
not  address  enemy  sortie  generation  capability  adequately  because 
numerous  damage  mechanisms  are  involved.  With  the  exception  of  JHBMs, 
air-to-ground  models  in  the  previous  section  are  limited  to  attacks 
against  runway  surfaces.  While  attacks  against  runways  are  complicated. 


they  are  easier  to  model  than  attacks  against  other  airdrome  facilities. 
JMEMs  methodologies  are  too  complicated  to  calculate  commensurate 
reductions  in  enemy  sortie  generation  capabilities. 

Analysis  of  airfield  attacks  is  performed  frequently  throughout  all 
levels  of  the  tactical  air  forces.  The  majority  of  models  surveyed  in 
the  previous  section  concentrate  on  theater-level  analysis  for  force 
structure  planning.  The  smaller  models  are  restricted  to  precision 
guided  weapons*  perpendicular  runway  cuts*  or  very  limited  attack  plans. 
Existing  models  were  not  designed  to  analyze  air-to-ground  operations 
between  the  two  extremes;  this  void  needs  to  be  filled. 

The^ requirement  to  perform  theater-level  modeling  of  airfield 
attack  is  well  documented.  The  need  for  analysis  of  specific  airfield 
attacks  is  just  as  real,  but  not  as  well  documented.  Weapons  and 
tactics  offices  throughout  the  tactical  air  forces  are  responsible  for 
analysis  and  improvement  of  mission  planning  and  execution.  The 
responsibility  is  shared  at  wing  and  squadron  levels  by  these  offices 
and  the  aircrews  themselves.  The  tactical  community  constantly  seeks 
better  ways  to  fight  the  war;  the  aircrews  not  only  are  interested  in 
putting  the  bombs  on  target,  but  surviving  the  mission  as  well.  The 
aircrews  fuse  training,  experience,  and  judgement  to  accomplish 
effective  mission  planning  and  develop  heuristics  for  less  experienced 
aircrews.  Pew  other  tools  exist  for  this  extremely  important  task. 
Successful  airfield  attacks  balance  the  two  conflicting  goals  of 
survivability  and  effectiveness.  For  a  fixed  level  of  survivability, 
aircrews  want  to  maximize  mission  effectiveness.  The  complexity  of 
airfield  attacks  renders  maximum  effectiveness  an  elusive  goal. 
Quantification  of  the  numerous  variables  of  airfield  attack,  combined 
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with  tactical  experience,  could  provide  a  useful  mission  planning  tool. 
This  could  take  different  forms:  computer  programs,  deterministic 
equations,  or  quick-reference  tables  and  graphs. 

To  be  useful  at  squadron  and  wing  levels,  a  computer  program  would 
have  to  be  portable,  flexible,  and  compatible  with  available  hardware. 
A  computer  program  that  potentially  could  fulfill  the  requirements  of 
squadron-  and  wing-level  mission  planning  is  the  Attack  Assessment 
Program— MODIFIED. 

Outside  JMEMs,  few  deterministic  means  exist  to  produce  mission 

planning  equations,  tables,  or  graphs.  However,  methodologies  exist  for 

analysis  of  mathematical  optima  which  could  lead  to  deterministic 

planning  tools.  One  example  is  response  surface  methodology  (RSM): 

Since  most  input  variables  are  continuous,  quantitative 
variables,  RSM  seems  a  promising  approach  to  optimize  the 
damage  resulting  from  an  attack  plan  (35:94,49:170) • 

The  most  likely  candidate  for  further  research  is  a  combination  of 
AAPMOD  and  RSM. 

Limitations  of  AAPMOD 

Miglin’s  objectives  were  to  translate  AAP  from  FORTRAN  IV  to 
FORTRAN  V  and  run  AAPMOD  interactively  on  a  CDC  6600  and  a 
microcomputer.  This  was  a  notable  effort  for  one  individual;  Miglin 
successfully  translated  AAP  to  FORTRAN  V  and  ran  it  interactively  on  the 
CDC  6600.  However,  the  AAPIN  input  generation  program  for  AAPMOD  is 
awkward  because  of  the  multitudinous  inputs  required  at  one  sitting. 
These  are  placed  in  a  separate  file  which  cannot  be  changed  except  with 
detailed  knowledge  of  AAPMOD.  Miglin  recognised  the  limitations  of 
AAPIN  and  recommended  several  enhancements  to  ease  the  user  burden  of 
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database  generation  (35:91-92).  One  suggestion  is  that  " AAPIN  should  be 
prettied  to  further  enhance  useability Experimentation  with  the 
latest  version  of  AAPIN  revealed  a  strong  need  to  improve  the  program: 
some  input  prompts  are  confusing,  various  data  inputs  are  redundant,  and 
very  little  ability  exists  to  recover  from  a  mistake  during  excessively 
long  interactive  sessions.  Furthermore,  minor  changes  in  data  require 
repeating  the  entire  sequence  of  inputs. 

As  it  existed  when  Miglin  graduated  from  AFIT,  AAPMQD  required 
further  verification  and  validation.  The  need  for  further  verification 
of  the  FORTRAN  code  became  apparent  with  a  review  of  the  compiled 

listing  of  program  AAPMOD:  several  undefined  variables  were  identified. 

3 

Miglin  validated  AAPMOD  using  a  three  factor,  two  level  (2  factorial) 

experiment  with  the  following  variables:  weapon  delivery  error,  mode  of 

release  (singles  or  paired),  and  axis  of  attack  (35:76-87),  Though  the 

results  of  the  experiment  were  valid,  further  testing  with  other 

variables  and  more  levels  would  be  in  order* 

With  AAPMOD  shown  to  produce  valid  results,  it  may  well  suit  the 

suggested  uses  Miglin  identifies  in  his  thesis  summary: 

AAPMOD  can  be  used  by  aircrews  and  tactical  planners  to 
optimally  employ  the  conventional  weapons  they  have  available 
to  them  today.  Crews  can  use  AAPMOD  to  optimally  assign 
weapon  systems  to  targets  (35:69), 

In  order  for  the  program  to  be  of  value,  the  user  must  be  able  to 
understand  the  design  considerations  of  the  input  database,  correctly 
build  that  database,  successfully  execute  the  program,  and  properly 
interpret  the  output.  In  its  current  form,  the  user  could  not  begin  to 
understand  the  structure  of  AAPMOD  without  significant  effort.  Use  of 
AAPIN  to  build  the  input  file  is  a  vast  improvement  over  the  previous 
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methods  of  input  (text  editors  and  IBM  cards),  but  is  still  far  from  the 
level  of  friendliness  needed  for  field  use. 

To  generate  output  useful  to  aircrews  in  planning  missions,  AAPIN 
must  be  revamped  to  provide  clear,  step-by-step  instructions  for 
building  the  input  files.  A  user  manual  to  accompany  the  program  would 
be  highly  useful.  Examples  and  significance  of  the  output  must  be 
provided.  Furthermore,  a  description  of  the  unique  capabilities  of 
AAPMOD  would  enhance  the  end  user's  ability  to  tailor  attack  plans  in  an 
efficient  manner. 

With  the  versatility  of  AAPMOD,  it  might  be  possible  to  develop  a 
deterministic  quick  reference  guide  for  aircrew  planning.  The  guide 
could  take  the  form  of  tables  and  graphs,  equations,  or  separately 
written  computer  programs.  It  might  be  necessary  to  develop  a 
combination  of  the  above  for  each  target  complex  considered  as  a 
potential  wartime  target,  or  it  may  be  possible  to  find  an  even-  more 
general,  generic  set  of  guidelines. 

Finally,  more  research  is  warranted  for  making  AAPMOD  usable  on  a 
microcomputer.  Due  to  the  size  of  the  FORTRAN  program,  AAPMOD  will  not 
run  on  microcomputers  with  256  kilobytes  (K)  of  random  access  memory 
(RAM).  Miglin  attributes  the  large  program  size  to  FORTRAN  "COMMON” 
variables  that  require  excessive  RAM,  and  estimates  a  need  for  544K  RAM 
to  run  AAPMOD.  He  recommends  investigating  the  feasibility  of  placing 
AAPMOD  onto  microcomputers  currently  available  to  the  tactical  air 
forces  (35:93).  Considering  the  latest  government  purchases  of 
microcomputers,  this  goal  is  in  line  with  available  equipment  and 
current  technology.  Additionally,  analysis  of  classified  attack 


scenarios  is  made  possible  with  currently  available  TEMPEST  machinery 


16 


(for  example,  the  Heathkit/Zenith  Z-150  systems  and  the  International 
Business  Machines  Personal  Computer  (IBM  PC),  both  obtainable  with  RAM 
in  excess  of  256K).  One  way  to  make  AAPMOD  compatible  with 
microcomputers  containing  256K  or  less  RAM  is  to  translate  the  FORTRAN  V 
into  a  different,  more  compact  programming  language. 

Problem  Statement  ' : 

Air  Force  planners  at  all  levels  require  accurate  estimates  of 
fighter  aircraft  survivability  versus  target  destruction 
(effectiveness).  Present  methods  are  either  too  cumbersome,  too  time- 
consuming,  or  too  restrictive  to  fill  the  perceived  needs  at  levels 
ranging  from  the  Chiefs  of  Staff  to  operational  units.  The  utility  of 
most  existing  models  decreases  drastically  when  considering  specific 
airfield  attack  missions. 

Implications.  Runway  attack  effectiveness  was  perceived  to  be  the 
most  lucrative  area  for  immediate  study.  This  thesis  concentrates  on 
mission  planning  at  the  wing  or  squadron  level  for  targets  assigned  by 
higher  headquarters.  A  complementary  thesis  effort  would  be  further 
study  of  runway  attack  survivability.  The  final  objective  would  be  to 
meld  these  efforts  into  a  single  analytical  package. 

Research  Questions 

1.  Can  parameters  for  airfield  attacks  be  optimized? 

2.  Can  the  resulting  computer  program  be  reduced  to  portable  form 
compatible  with  microcomputers  now  common  in  the  field? 

3.  Could  this  program  be  used  for  operational  unit  mission 
planning? 
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There  are  several  broad  objectives  for  simulation  of  airfield 
attacks.  First,  the  analyst  should  gain  some  insight  into  the  problem. 
This  is  more  likely  if  an  experienced  aviator  serves  as  the  analyst. 
Second,  potential  targets  can  be  tested  in  a  benign  simulation 
environment  to  determine  if  they  are  worth  attacking  in  terras  of  enemy 
losses.  Third,  the  differences  between  various  munitions  could  be 
explored  to  find  the  most  effective  combinations.  Finally,  the  method 
and  parameters  of  attack  could  form  the  basis  for  experimentation  to 
determine  how  best  to  attack  an  existing  target  with  the  aircraft  and 
munitions  on  hand.  This  report  and  the  underlying  analysis  focus  on  the 
last  objective:  varying  parameters  to  determine  how  best  to  attack  an 
enemy  airfield. 


bpecitic  Research  Ublectives. 

1.  Streamline  AAPMOD  input  procedures. 

2.  Perform  verification  and  validation  of  AAPMOD. 

3.  Run  a  screening  experiment  using  AAPMOD  to  identify 

insignificant  airfield  attack  parameters  which  affect  the 
probability  of  runway  denial. 

4.  Fit  a  response  surface  to  AAPMOD  using  the  significant  airfield 
attack  parameters  mathematically  to  locate  optimal  attack 
parameters. 

5.  Generate  output  useful  to  aircrews  in  planning  missions. 

6.  Translate  the  computer  programs  to  run  on  microcomputers 
available  at  wing  and  squadron  levels. 


Planned  Methodologies 


The  methodologies  employed  closely  parallel  the  research 
objectives*  An  initial  screening  design  is  used  to  winnow  insignificant 


factors  from  numerous  airfield  attack  input  parameters.  AAPMOD  is  used 
extensively  during  this  analysis.  Next,  response  surfaces  are  fitted  to 
the  significant  attack  parameters  to  predict  the  results  of  an  attack, 
eliminating  the  need  to  perform  the  actual  attack.  An  optimum  set  of 
attack  parameters  is  sought  using  the  method  of  steepest  ascent  followed 
by  a  quadratic  surface  fit. 

Since  this  thesis  effort  extends  Miglin’s  work,  an  expanded 
discussion  of  the  Attack  Assessment  Program — MODIFIED  follows  in  the 
next  chapter. 


III.  AAP/AAPMOD  —  Computerized  Attack  Assessment 


Attack  Assessment  Program 

The  Attack  Assessment  Program  (AAP)  was  developed  for  the  Joint 
Technical  Coordinating  Group  for  Munitions  Effectiveness  under  contract 
F-08635-79-C-0255 ,  Written  in  FORTRAN  IV,  AAP  is  used  by  the  Armament 
Development  Laboratory  at  Eglin  Air  Force  Base,  Florida,  as  well  as  50- 
60  contractor  locations  (35:44).  This  versatile  program  accepts  up  to 
207  target  elements  of  which  3  can  be  takeoff  and  landing  (TOL) 
surfaces  (runways)  and  43  can  be  runways  or  taxiways.  The  remaining 
targets  are  assumed  to  be  structures.  Up  to  11  target  types  are 
identified  by  their  "hardness"  codes.  Extensive  error  trapping  prevents 
entering  too  many  targets  in  a  particular  category.  AAP  can  store  up  to 
16  different  weapons  delivery  patterns  and  6  different  weapons.  These 
can  be  paired  in  any  combination  for  up  to  64  attacks  (passes)  against 
selected  target  elements.  Up  to  36  weapons  can  be  delivered  during  each 
pass;  each  weapon  can  have  numerous  submunitions.  Up  to  10  separate 
attacks  can  be  programmed  for  analysis  of  airfield  closure  tines  versus 
time  to  repair  damage.  This  substantial  versatility  results  in  massive 
core  memory  requirements.  AAP  cannot  run  interactively  with  success, 
even  on  the  largest  of  mainframes.  It  was  designed  to  be  run  in  the 
batch  mode  with  prearranged  input.  Entering  the  numerous  bits  of  data 
in  an  interactive  mode  would  try  the  patience  of  even  the  most  dedicated 
user,  who  would  have  to  start  from  scratch  each  time. 

AAP  Implementation.  AAP  uses  Monte  Carlo  iterations  to  determine 
the  desired  output  statistics.  One  iteration  represents  one  entire 
mission.  This  mission  includes  all  passes  and  weapons  deliveries  for 


all  aircraft  participating  in  each  of  the  separate  attacks.  This  entire 
process  is  repeated  for  each  iteration  until  reaching  a  predesignated 
number  of  iterations,  or  sufficient  accuracy  if  that  option  is  selected. 

Within  an  iteration,  AAP  analyzes  one  attack  at  a  time.  This  is 
intuitively  appealing  since  subsequent  attacks  come  at  later  times. 
Success  in  keeping  the  airfield  closed  may  depend  on  previous  attacks. 
Within  a  particular  attack,  the  individual  delivery  passes  are 
considered.  Random  numbers  are  generated  to  determine  weapon  or 
submunition  impact  points  and  probability  of  functioning.  If  the  weapon 
functions  properly,  the  resulting  crater  damage  is  stored  for  later 
analysis.  When  the  iteration  has  been  "flown  out,"  search  routines 
determine  the  status  of  target  pavements  and  structures.  Within  a 
particular  iteration,  the  runway  or  taxiway  is  either  cut  or  not  cut. 
This,  essentially,  is  a  step  function  for  the  single  iteration. 
Structures  are  handled  slightly  differently.  The  area  of  the  craters 
which  physically  infringe  on  the  structure  is  subtracted  from  the  total 
area  of  the  the  structure.  This  is  reported  as  the  level  of  damage. 

After  completing  iterations,  output  statistics  are  generated.  At 
this  point,  fractional  probabilities  of  runway  cut  are  computed. 
Depending  on  the  selected  levels  of  airfield  attack  parameters  and  the 
random  number  stream  for  a  set  of  iterations,  some  iterations  will  yield 
runway  cuts,  and  the  remainder  will  leave  the  runway  intact.  The 
fractional  probability  of  runway  cut  is  calculated  by  dividing  the 
number  of  iterations  in  which  the  runway  was  cut  by  the  total  number  of 
iterations.  For  instance,  if  200  iterations  were  performed  and  ISO  of 
the  iterations  cut  the  runway  of  interest,  the  reported  probability  of 


r' 


cut  would  0.750.  This  is  the  manner  in  which  Monte  Carlo  sampling 
returns  an  aggregate  figure  of  merit  from  a  set  of  Bernoulli  trials. 

AAPMOD  also  calculates  the  probability  of  denying  TOL  operations 
(probability  of  cut)  for  combinations  of  runways.  Since  three  runways 
are  permitted  by  AAPMOD,  possible  combinations  are  runways  1  &  2,  1  &  3, 
2  &  3,  and  1  &  2  &  3.  At  the  end  of  each  iteration,  the  program 
compares  the  status  of  the  runways.  If  all  the  constituent  runways  of  a 
combination  have  been  cut,  a  counter  is  incremented.  When  all 
iterations  are  complete,  the  combination  counters  are  divided  by  the 
number  of  iterations  to  calculate  the  probability  of  "cut”  for  the 
various  combinations.  Thus,  the  combined  probabilities  of  cut  are 
calculated  by  multiplying  the  results  of  Bernoulli  trials  for  the 
individual  runways.  However,  the  final  combined  probabilities  of  cut 
cannot  be  derived  from  the  product  of  the  individual  probabilities  of 
runway  cut.  Table  1  depicts  a  10-iteration  example  of  how  probabilities 
of  cut  are  calculated. 


Iteration  1  2  3 

1  0  0  0 

2  0  0  1 

3  0  1  0 


Runway 
1  &  2  1  &  3 


2  &  3  1  &  2  &  3 


Table  1.  AAPMOD  Probability  of  Cut  Sample  Calculations 
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AAP/AAPMOD  Output .  This  section  describes  the  output  available 
from  AAP/AAPMOD.  The  reader  should  refer  to  Appendix  E  during  this 
discussion.  AAP  output  starts  with  an  echo  check  of  the  raw  input  file, 
if  this  option  is  selected.  (The  echo  check  is  not  available  in  the 
TURBO  PASCAL  version.)  The  raw  input  file  is  described  in  detail  at 
Appendix  D.  The  first  values  of  interest  are  the  confidence  limits  for 
the  simulation.  These  limits  are  the  half-interval  centered  on  the 
expected  number  of  hits  for  thq  listed  target  element.  AAP  picks  the 
target  element  with  the  greatest  number  of  hits  for  the  confidence 
interval.  The  target  element  also  can  be  identified  by  checking  the 
"EXP  NO.  HITS"  section  immediately  following  the  confidence  limits.  The 
confidence  interval  is  based  on  the  Student's  t-statistic.  A  separate 
standard  deviation  "SIGMA"  is  reported  for  the  expected  number  of  hits 
on  each  target  element. 

The  output  continues  with  the  expected  area  of  damage  by  target 
element  and  its  standard  deviation  denoted  by  "EXP  AREA  DAM"  and 
"SIGMA."  This  is  suppressed  if  total  damage  area  calculations  are 
suppressed.  Calculation  of  total  damage  area  increases  computer  time 
since  overlapping  craters  must  be  taken  into  account.  This  factor  is 
irrelevant  for  determining  probability  of  cut,  Next,  the  target  group 
of  the  target  element  is  listed.  Target  groups  are  a  matter  of 
convenience  in  the  bookkeeping  of  the  damage.  The  area  of  group  damage 
is  simply  the  sum  of  constituent  target  element  damages.  The  target 
group  standard  deviation  is  tracked  from  iteration  to  iteration  and  is 
calculated  separately. 

It  should  be  noted  that  the  initial  lines  of  output  summarising  the 
expected  number  of  hits  and  expected  area  damaged  contain  the  only 


output  available  for  structures.  Repair  of  structures  is  not 
considered. 

The  next  section  of  output  contains  data  for  TOL  surfaces  and  major 
taxiways.  Probabilities  of  cut  and  expected  number  of  craters  are 
listed  for  each  major  surface  along  with  their  standard  deviations. 
These  are  labeled  "PROB  CUT”  and  ”SIGMA."  The  "PROB  CUT”  is  actually 
the  probability  of  denying  TOL  operations  since  more  than  one  cut  may  be 
required  for  long  surfaces.  A  cut  is  defined  as  a  series  of  craters 
sectioning  the  surface  into  areas  smaller  than  the  minimum  clear  length 
and  width  required  for  TOL  operations.  Next  is  the  expected  number  of 
craters  which  close  the  minimum  clear  strip  which  will  be  easiest  to 
repair.  This  amounts  to  a  clear  strip  which  can  be  opened  by  repairing 
the  fewest  craters,  which  would  certainly  be  the  object  of  the  base 
engineers  at  the  attacked  airdrome.  The  method  of  determining  where  the 
best  strip  is  located  is  not  important  for  this  analysis.  The  expected 
number  of  craters  to  repair  would  be  important  for  repair  time  estimates 
and  the  time-sequenced  attacks  available  in  AAP.  This  value  is  labeled 
"EXP  NO  CRATERS”  along  with  its  standard  deviation  "SIGMA.”  Suppressed 
output  is  denoted  by  a  string  of  asterisks  or  ”N/A.” 

Related  to  the  expected  number  of  craters  to  be  filled  is  the 
expected  area  which  must  be  filled,  "EXP  AREA  PILL,"  and  its  standard 
deviation.  "SIGMA."  Since  fractional  craters  can  be  filled  to  open  a 
minimum  clear  strip,  there  is  no  direct  correlation  between  expected 
number  of  craters  to  fill  and  expected  area  to  fill. 

The  next  portion  of  output  is  not  used  for  AAPMOD.  AAP  has 
provisions  for  multiple  attacks  and  crater  repairs  between  successive 
attacks.  The  expected  number  of  craters  filled  between  attacks  and  its 
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standard  deviation  are  labeled  "EXP  NO  FILLED"  and  "SIGMA." 


The 

subroutines  used  to  calculate  number  of  craters  filled  and  repair  times 
have  been  retained  in  AAPM0Dy  but  are  not  used  since  only  one  attack  is 
permitted . 

The  output  concludes  with  statistics  on  approaches  to  a  TOL  strip. 

AAP  considers  either  an  open  minimum  clear  strip  (in  which  case  the 

attack  failed)  or  the  easiest  minimum  clear  strip  to  repair  and  then 

calculates  the  number  of  craters  that  must  be  filled  to  reach  the  clear 

strip.  This  is  handled  in  a  manner  similar  to  the  TOL  surfaces  although 

there  is  no  minimum  clear  length  for  aircraft  taxi  and  minimum  clear 

width  is  usually  less  than  for  TOL  operations. 

This  data  is  repeated  for  all  combinations  of  major  TOL  surfaces. 

These  combined  figures  give  an  indication  of  probability  of  cut  and 

difficulty  of  repair  for  airdromes  with  more  than  one  runway. 

The  last  section  of  output  summarizes  statistics  for  minor 

taxiways.  Only  the  minimum  clear  taxi  width  is  required  fw'r  these 

calculations.  The  target  element  and  minimum  clear  width  are  identified 

as  well  as  the  expected  number  of  cuts,  the  expected  number  of  craters 
•  » 

to  fill,  and  the  expected  area  to  fill,  along  with  standard  deviations 
for  the  latter  three. 

Attack  Assessment  Program— MODIFIED  (AAPMOD) 

As  stated  earlier,  Miglin'a  aim  was  twofold,  lie  wanted  to 
translate  the  original  AAP  from  FORTRAN  IV  to  FORTRAN  V  and  succeeded  in 
this  endeavor.  The  major  improvement  was  the  addition  of  comments  and 
improved  logic  of  IF-TUEN-ELSE  statements  available  in  FORTRAN  V, 
Miglin's  second  objective  was  to  run  AAPMOD  on  a  microcomputer.  In 


Item 


AAP' 


AAPMOD 


Target  Elements 

207 

112 

Taxiways 

43 

30 

TQL  Surfaces 

3 

3 

Attacks 

10 

1 

Passes  per  attack 

64 

32 

Target  groups 

20 

15 

Delivery  patterns 

16 

12 

Weapons  in  a  pattern 

36 

12 

Hardness  codes 

11 

11 

Warhead  codes 

6 

6 

Reattacks  per  aircraft 

63 

1 

Table  2.  AAP/ AAPMOD  Capability  Comparison  (35:51) 


Miglin* s  case,  this  was  an  IBM  PC  with  random  access  memory  (RAM)  of  256 
kilobytes  (256K)  and  a  FORTRAN, V  compiler.  AAP  was  too  large  to  fit  on 
the  IBM  PC  due  to  the  massive  amount  of  memory  consumed  by  FORTRAN 
"COMMONS."  For  those  unfamiliar  with  FORTRAN,  COMMON  variables  are 
roughly  equivalent  to  global  variables. 

First,  Miglin  separated  the  single  large  program  into  a  loading 
program  called  AAPIN  and  an  execution  program  called  AAPMOD.  AAPIN 
performs  some  user  input  error  checking  and  generates  an  input  file  for 
AAPMOD,  AAPMOD  uses  the  input  file  to  perform  calculations  in  the  same 
manner  as  AAP.  Miglin  significantly  reduced  the  permitted  number  of 
target  elements,  passes,  and  weapons  dropped  per  pass  to  reduce  storage 
requirements.  He  also  removed  the  capability  for  multiple  attacks 
spaced  over  periods  of  time.  Table  2  summarises  the  capabilities  of 
AAPMOD  versus  AAP.  AAPMOD  retains  a  significant  capability  for 
representing  potential  target  areas,  weapons,  and  attack  patterns. 


AAPMOD  still  handles  virtually  all 


realistic  attack  scenarios. 


The  only 


1 
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major  capability  possessed  by  AAP  which  is  not  present  in  AAPMOD  is  time 
sequenced  attacks.  AAPMOD  generates  a  snapshot  in  time:  results  of  a 
single  attack  are  analyzed  for  the  number  of  craters  produced  and 
probability  of  runway  closure.  Several  subroutines  relating  to 
subsequent  attacks  were  retained  but  are  essentially  useless  without  the 
full  facilities  of  AAP.  These  subroutines  deal  with  rimway  repair 
materials  and  repair  times. 

Similar  to  AAP,  the  analyst  can  program  up  to  112  targets  for  the 
airfield  to  be  attacked.  Up  to  3  of  these  pargets  can  be  runways,  up  to 
30  can  be  paved  surfaces  (including  taxiways  and  runways),  and  the 
remainder,  buildings  or  structures.  Up  to  six  weapons  can  be 
programmed.  These  are  represented  as  a  number  of  submunitions  (1  in  the 
case  of  general  purpose  bombs  and  guided  munitions)  and  the  associated 
crater  sizes  of  a  submunition  against  targets  of  various  hardnesses. 
Next,  patterns  must  be  defined.  Unlike  the  aircrews'  conception  of  a 
pattern,  AAPMOD' s  patterns  are  the  end  result  of  the  weapons  delivery 
pass  —  the  pattern  of  weapon  impacts  on  the  ground*  Relative  to  an 
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intended  target,  these  are  modified  by  expected  mis^di^tiinces’due  .no 
aiming,  delivery,  and  ballistic  errors.  The  aircrew^mojpe 
consider  the  maneuvers  up  to  the  weapon  release  point  as  the  pattern, 
but  AAP  assumes  such  maneuvers  are  accomplished  external  to  the  program, 
Finally,  the  targets,  weapons,  and  patterns  are  related  in  an  airfield 
attack  scenario.  AAPMOD  runs  this  attack  scenario  with  a  user  definable 
number  of  Monte  Carlo  iterations. 

AAPMOD  uses  discrete  simulation.  The  events  involved  for  the 
airfield  attack  are  one-time  occurrences*  Many  of  them  are  stochastic 
in  nature  and  vary  over  a  continuous  range,  but  do  not  lend  themselves 


to  continuous  simulation.  This  simulation  does  not  use  Lanchester 
equations  or  other  forms  of  differential  equations  characteristic  of 
continuous  simulations.  The  results  from  numerous  Monte  Carlo 
iterations  are  combined  to  give  probabilities  of  cut  for  the  runways, 
expected  number  of  craters,  and  other  statistics.  In  essence,  these 
statistics  are  discrete,  with  decreasing  step  sizes  as  the  number  of 
iterations  increase. 

Further  Study 

Further  study  of  the  airfield  attack  problem  is  warranted. 
Although  the  simplified  logic  offered  by  FORTRAN  V  resulted  in  faster 
execution  times  on  mainframe  computers,  AAPMOD* s  large  size  has 
prevented  microcomputer  implementation.  Furthermore,  the  loading  program 
needs  to  be  streamlined  and  equipped  with  file  editing  capabilities. 
Second,  aircraft  operators  will  have  very  limited  mainframe  computer 
support  at  the  front  lines.  However,  it  is  highly  likely  that 
microcomputers  will  be  available.  AAPMOD  could  be  extremely  useful  for 
the  assessment  of  potential  airfield  attacks.  One  problem  persists  in 
this  area:  use  of  large  FORTRAN  programs  on  .microcomputers,  Miglin 
discovered  that  AAPMOD  was  too  large  of  a  program  to  run  on  a  256K  IBM 
PC.  The  code  segment  required  5/K,  but  the  data  segment  required 
approximately  251K  additional  memory.  Miglin  found  that  the  FORTRAN 
loader  would  not  function  properly  under  these  circumstances  (35:93).  A 
possible  solution  would  be  a  translation  of  the  FORTRAN  version  of 
AAPMOD  into  a  different  computer  language  compatible  with  the 
microcomputer  capabilities  predominant  throughout  the  tactical  air 
forces. 
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IV.  Specifications  of  the  Analysis 

This  chapter  deals  with  two  major  issues.  First,  the  airfield 
attack  problem  will  be  considered  in  more  detail.  Particular  attention 
will  be  directed  toward  the  required  inputs  for  simulation  of  airfield 
attacks.  Second,  the  steps  taken  to  model  airfield  attack  will  be 
covered.  These  steps  include  some  considerations  and  assumptions  for 
the  model  and  computer  coding. 

AAPMOD  Input  Parameters 

Banks  and  Carson  (3)  emphasize  that  the  real  world  situation  should 
be  the  first  consideration  in  simulations.  This  prevents  the 
misapplication  of  existing  models  to  loosely  related  problems.  Models 
are  simplified  representations  of  real  life.  The  underlying  assumptions 
may  be  valid  for  a  particular  application,  while  inappropriate  for 
others.  Consequently,  this  chapter  considers  real-world  considerations 
first  and  then  examines  whether  AAPMOD  is  suitable  for  optimizing 
airfield  attack  parameters, 

Miglin  (35:26-33)  provides  a  cogent  discussion  of  the  parameters  of 
airfield  attacks.  The  parameters  are  repeated  here  with  a  short 
discussion  of  each. 

Two  main  categories  of  parameters  will  be  discussed  in  this 
section.  Variables  which  are  probabilistic  and  are  not  under  the 
control  of  the  aircrew  will  be  referred  to  as  "stochastic”  variables. 
Variables  over  which  the  aircrew  has  direct  control  will  be  referred  to 
os  "controlled"  variables.  Some  variables  may  not  fit  perfectly  into  a 
single  category.  In  this  case,  they  will  be  categorized  by  their 
predominant  tendencies. 


Target  Parameters, 

Runway  Dimensions.  The  runway  dimensions  are  parameters  which 
define  the  length  and  width  of  a  runway.  The  units  may  be  any  the 
analyst  desires,  but  must  be  consistent  throughout  the  analysis.  This 
analysis  is  conducted  using  feet. 

Minimum  Clear  Dimensions.  The  minimum  clear  dimensions  are 
parameters  which  define  the  minimum  clear  width  (MCW)  and  minimum  clear 
length  (MCL)  for  aircraft  TOL  operations.  These  will  vary  among 
different  aircraft.  For  this  analysis,  MCL  equals  4000  feet  and  MCW 
equals  50  feet. 

Probability  of  Reaching  the  Target. 

Navigation  Error.  Navigation  error  is  a  stochastic  variable 
that  depends  on  aircrew  proficiency  and  aircraft  systems.  Combined  with 
the  probability  of  being  shot  down  by  hostile  fire,  this  amounts  to  the 
probability  of  the  aircraft  arriving  in  position  to  deliver  ordnance. 

Survivability .  Survivability  is  a  stochastic  variable  which 

quantifies  the  chances  of  evading  various  threats  to  the  mission. 

Separate  probabilities  usually  are  calculated  for  probability  of 

arriving  at  the  target  for  the  first  time  versus  returning  for  a 

reattack.  The  probability  of  surviving  for  a  reattack  is  often  the 

lower  of  the  two  since  the  enemy  has  been  alerted  by  the  first  attack. 

Survivability  will  be  considered  fixed  for  this  analysis,  but  is  a 

primary  concern  for  a  follow-on  analysis  of  survivability-effectiveness 

* 

tradeoffs. 

Ability  to  Engage  Target. 

Aiming  Error.  Aiming  error  is  a  stochastic  variable  that 
depends  on  aircrew  proficiency  and  aircraft  navigation  systems.  This 


variable  accounts  for  the  ability  to  find  the  preplanned  aimpoint  on  a 
line  feature  given  that  the  target  complex  is  in  sight.  For  runways, 
AAPMOD  uses  a  triangular  distribution  with  zero  for  the  mean  and  1000 
feet  for  the  end  points.  This  is  discussed  further  in  Chapter  IX  under 
sensitivity  analysis.  Aiming  error  is  assumed  to  be  negligible  for 
targets  other  than  runways. 

Release  Mode .  Release  mode  is  a  controlled  variable  which 
dictates  the  manner  in  which  weapons  are  released.  This  usually 
includes  the  release  of  bombs  singly  or  in  pairs.  Other  modes  may  be 
possible  depending  on  the  weapon  release  system. 

Release  Interval .  Release  interval  is  a  controlled  variable 
which  specifies  the  time  Interval  between  weapons  releases.  Release 
interval  can  be  based  on  time  for  older  aircraft  or  desired  munition 
ground  spacing  for  newer  aircraft  with  computed  release  systems. 
Release  interval  is  usually  quite  precise  unless  a  system  malfunction 
occurs;  malfunctions  are  vary  rare. 

Number  of  Puloes.  The  number  of  pulses  is  a  controlled 
variable  which  is  set  in  the  armament  system  to  release  the  desired 
number  of  munitions. 

Release  Altitude.  The  release  altitude  is  a  controlled 
variable  which,  among  other  factors,  will  affect  the  range  and 
reliability  of  munitions  dropped  or  fired.  Errors  in  release  altitude 
can  be  reduced  through  aircrew  training  or  use  of  an  automated  release 
system,  but  will  still  have  some  stochastic  characteristics  in  that 
nearly  every  release  will  have  an  associated  altitude  error.  This  can 
be  compounded  by  errors  in  cockpit  altimeters. 


31 


Release  Speed.  Release  speed  is  a  controlled  variable  which 
affects  the  range  of  munitions  expended.  This  is  subject  to  the  same 
considerations  as  release  altitude. 

Dive  Angle.  Dive  angle  is  a  controlled  variable  which  affects 
the  range  and  reliability  of  munitions  expended.  Dive  angle  has  effects 
similar  to  release  altitude  and  release  speed. 

Axis-of-Attack.  The  axis-of-attack  is  a  controlled  variable 
which  dictates  the  relative  azimuth  an  attack  pass  makes  with  respect  to 
a  target.  This  may  be  restricted  by  available  navigation  aids  or  enemy 
defenses.  The  axis-of-attack  will  affect  the  orientation  of  the  weapons 
on  the  runway  and  may  be  related  to  deflection,  errors.  Deflection 
errors  are  more  likely  if  the  axis-of-attack  lies  perpendicular  to  a 
strong  crosswind. 

Delivery  Error.  Delivery  error  is  a  controlled  variable  in 
that  aircrews  can  be  trained  to  improve  accuracy.  Delivery  error  is 
distributed  as  a  bivariate  normal  corresponding  to  possible  errors  in 
range  and  deflection.  Range  errors  lie  along  the  aircraft’s  ground 
track  while  deflection  errors  are  referenced  perpendicular  to  the  ground 
track.  These  separate  components  can  be  represented  by  standard 
deviations  of  the  distribution,  or,  more  commonly,  as  range  error 
probable  (REP)  and  deflection  error  probable  (DEP),  The  concept  of  REP 
and  DEP  is  that  SO  percent  of  munitions  expended  will  impact  inside  the 
range  error  probable  or  the  deflection  error  probable.  Note  that  a 
munition  can  impact  inside  the  range  error  probable  and  still  fall 
outside  the  deflection  error  probable.  REP  is  usually  larger  than  DEP, 
since  it  is  easier  to  fly  over  a  target  than  to  release  the  weapons  at 
just  the  right  point  in  space.  Finally,  if  only  a  CEP  is  known,  this  is 


entered  by  inputting  the  CEP  value  for  both  the  REP  and  DEP.  (When  REP 
and  DEP  are  the  same,  the  bivariate  normal  distribution  degenerates  to  a 
circular  normal  distribution.) 

Ballistic  Dispersion.  Ballistic  dispersion,  also  known  as 
ballistic  error,  is  a  stochastic  variable  which  defines  the  probability 
distribution  of  a  munition’s  trajectory.  As  with  delivery  errors, 
ballistic  dispersion  is  separated  into  range  and  deflection  components. 
This  is  handled  in  the  same  manner  as  delivery  errors  in  that  the 
interactive  programs  deal  in  REP  and  DEP  while  the  raw  data  are  stored 
as  standard  deviations  for  input  to  AAPMOD. 

Weapon  Pattern.  The  weapon  pattern  is  the  actual  location  of 
munition  impacts  compared  to  the  desired  center  point  of  a  stick  or 
series  of  bombs.  For  AAPMOD,  this  includes  interactions  of  the  release 
mode,  release  interval,  release  speed,  altitude,  and  dive  angle.  The 
weapon  pattern  assumes  no  aiming,  delivery,  or  ballistic  errors.  AAPMOD 
applies  aiming  and  delivery  error  to  the  center  point  of  the  stick  and 
ballistic  dispersion  to  each  individual  munition  during  execution. 

Weapon  Reliability.  Weapon  reliability  is  a  controlled 
variable  which  states  the  probability  of  a  weapon  functioning.  Weapon 
reliability  is  controlled  in  the  sense  that  the  most  frequent  cause  of  a 
weapon  malfunction  is  releasing  the  weapon  too  low.  In  this  case,  the 
fuze  does  not  have  a  chance  to  arm  prior  to  impact.  Another  factor 
affecting  fuze  function  is  the  correct  setting  of  switches  in  the 
cockpit:  fuze  options,  release  modes,  and  the  master  arm  switch  are 
examples.  Additionally,  a  weapon  may  not  release  01  arm  due  to  weapon 
systems  malfunctions.  Weapon  reliability  also  can  be  affected  by  small 
impact  angles  that  would  cause  munitions  to  ricochet  or  break  apart. 


All  of  the  previous  factors  can  be  controlled  by  aircrews  to  a  certain 
degree:  meticulous  aircrew  preflights  will  reduce  the  chances  of  a 
weapon  release  malfunction,  proper  inflight  training  will  reduce  cockpit 
switch  errors,  and  increased  aircrew  proficiency  will  decrease  release 
point  errors.  Weapon  reliability  also  has  a  stochastic  nature  in  that 
there  is  a  finite  probability  that  the  fuze  will  not  function 
internally. 

Crater  Radius.  Crater  size,  defined  by  crater  radius, 
normally  is  a  stochastic  variable  which  is  a  function  of  munition  impact 
angle,  depth  of  penetration,  amount  of  explosive,  and  weapon  design* 
Crater  size  is  an  input  to  AAFMOD,  so  it  is  considered  controlled  for 
this  analysis. 

System  Response.  System  response,  or  damage  to  the  airfield,  is 
the  dependent  variable  or  set  of  variables  of  interest.  Potential 
dependent  variables  will  be  discussed  in  more  detail  later  in  this 
chapter. 

The  preceding  variables  and  parameters  provide  the  first  step 
toward  defining  the  system  to  be  analyzed.  The  next  step  is  to  coalesce 
the  variables  into  a  scenario  for  analysis. 


Teat  Scenario 

A  fundamental  task  of  this  analysis  is  to  develop  a  small  scenario 
to  test  untried  portions  of  AAPMOD  and  conduct  the  analysis  itself. 
Figure  1  depicts  the  test  airfield.  Attacks  against  two  runway  surfaces 
were  chosen  for  several  reasons.  First,  two  runway  surfaces  narrow  the 
scope  of  the  analysis  and  streamline  some  of  the  more  exotic  portions 
of  AAPMOD  that  demand  large  allocations  of  computer  central  processor 
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Figure  1*  Airfield  Layout  for  the  Test  Scenario 


unit  time.  Furthermore,  a  scaled-down  program  may  be  the  only 
reasonable  option  when  operating  on  relatively  slow  microcomputers* 
Second,  bombing  the  approaches  to  a  runway  usually  does  not  close  an 
airfield  for  long*  Third,  the  AAPMOD  routines  that  handle  structures 
and  repair  capabilities  are  so  limited  as  to  render  them  impractical. 
Damage  to  structures  is  assessed  only  in  terms  of  crater  sizes 
infringing  on  the  structure.  Blast  damage  and  fragmentation  damage  are 
not  considered.  Consequently,  structures  were  also  omitted.  Provisions 
are  not  available  for  repairing  cratered  surfaces  in  AAPMOD.  As 
mentioned  in  Chapter  III,  AAP  originally  provided  for  a  series  of 
attacks  spaced  in  time.  The  repair  module  is  a  throwback  to  the  earlier 
model  for  repairs  between  attacks  and  was  retained  only  for  possible 


future  use.  For  these  reasons,  the  analysis  concentrates  on  runway 
surfaces.' 

A  standard  attack  will  be  used  against  this  airfield.  Six  aircraft 
will  attack  the  airfield  using  the  same  attack  heading.  The  attack 
heading  will  be  a  variable  in  the  analysis,  but  for  a  given  set  of 
passes,  all  aircraft  will  fly  the  prescribed  heading.  Three  standard 
aimpoints  will  be  used.  These  are  designed  to  chop  the  runway  surfaces 
into  3000  foot  sections.  Two  aircraft  will  attack  each  aimpoint.  Each 
aircraft  will  make  only  one  pass  with  the  same  weapon  and  same  attack 
pattern  as  the  others.  This  scenario  is  quite  restricted,  but  will 
serve  as  a  test  vehicle  to  determine  if  a  response  surface  fit  of  this 
airfield  attack  is  possible. 

This  thesis  is  concerned  with  the  interactive  effects  of  attacks 
against  multiple  targets  such  as  might  be  encountered  by  a  mission 
package  assembled  for  an  airfield  attack.  An  alternate  approach  would 
have  been  to  consider  a  single  runway  requiring  only  one  cut.  The 
reader  is  encouraged  to  refer  to  Peck  (42)  for  a  thorough  discussion  of 
this  approach. 

Measures  of  Merit 

There  are  several  potential  measures  of  merit  important  to  the 
analysis  of  airfield  attacks.  Ground  and  air  commanders  would  be  most 
interested  in  the  time  period  during  which  enemy  aircraft  could  not  use 
the  airfield  after  an  attack.  This  could  be  represented  by  the  number 
of  expected  craters  to  fill  or  expected  area  of  craters  to  fill.  Hie 
expected  area  to  fill  would  be  the  more  accurate  of  the  two,  but 
requires  large  amounts  of  computer  processor  time  to  calculate.  In 


benchmark  testing  conducted  during  this  analysis,  calculations  of 
expected  area  to  fill  required  up  to  20  times  the  processor  time 
compared  to  calculations  of  expected  number  of  craters  to  fill.  In 
either  case,  the  average  times  to  fill  a  specified  area  would  be 
required  to  estimate  airfield  closure  times. 

Equally  important  is  degradation  of  enemy  sortie  generation 
capability;  however,  this  is  not  available  from  AAPMOD  in  its  present 
state. 

Another  potential  measure  of  merit  is  the  probability  of  cutting 
runways  or  combinations  of  runways,  readily  available  from  AAPMOD.  This 
gives  a  clear  indication  of  expected  success  of  attack  plans.  For 
surfaces  requiring  more  than  one  cut,  or  for  combinations  of  surfaces, 
AAPMOD  actually  calculates  the  probability  of  denying  TOL  operations. 
However,  this  is  still  reported  as  the  probability  of  runway  cut. 

Another  possible  measure  of  merit  is  the  number  of  craters  on 
runway  or  taxi  surfaces.  This  would  give  some  indication  of  expected 
repair  times,  but  the  number  of  craters  on  a  runway  does  not  indicate 
the  presence  or  absence  of  a  minimum  clear  strip. 

The  primary  measures  of  merit  for  this  analysis  are  the  expected 
number  of  craters  to  fill  and  the  probability  of  runway  cut  for 
individual  surfaces  and  combinations  of  surfaces.  Given  adequate 
computer  time,  expected  area  to  fill  replaces  expected  number  of  craters 
as  a  primary  measure  of  merit. 

Structural  Model 

Different  levels  of  the  deterministic  and  stochastic  variables 
discussed  earlier  produce  various  system  responses.  This  analysis 
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Figure  2.  Structural  Diagram 


considers  system  response  in  terms  of  tbe  measures  of  merit  described  in 

the  previous  section.  For  the  remainder  of  the  analysis,  "system 

response"  includes  expected  area  to  fill,  expected  number  of  craters, 
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and  probabilities  of  cutting  surfaces.  The  following  section  considers 
structural  relationships  among  potential  input  variables. 

Variables  Selected  for  Analysis.  There  are  many  potential 
independent  variables.  A  number  of  these  were  discuss  id  earlier  in  this 
chapter.  This  section  expands  the  discussion  of  input  variables  for 
the  real-world  situation,  relates  these  to  AAPMOD  and  limits  the  scope 
of  the  variables  for  the  analysis.  Figure  2  summarizes  these  variables 
and  their  expected  influence  on  the  probability  of  cutting  a  runway  or 
taxi  surface. 


To  simplify  the  simulation,  the  attack  is  considered  from  within  a 
reasonable,  but  unspecified  distance  of  the  airfield.  This  precludes 
calculating  the  effect  of  the  probability  of  engine  start  on  the  ground 
and  other  unlikely  factors,  A  probability  of  arriving  [  Pr(arrival)  ] 
at  the  target  area  in  position  to  deliver  ordnance  is  the  first  input 
and  combines  all  the  intervening  probabilities  up  to  that  point. 

The  next  variables  deal  with  various  errors  possible  in  attacking 
predetermined  points  of  the  runway.  First,  the  aircrew  may  have 
difficulty  in  determining  the  precise  location  of  an  aimpoint  that  is 
3000  feet  down  a  9000-foot  runway.  AAPMOD  uses  a  triangular 
distribution  for  this  with  the  mean  at  the  intended  target  and  the 
extremities  at  ±  1000  feet  along  the  runway.  This  was  Miglin's  estimate 
based  on  the  practical  experience  of  a  number  of  fighter  aircrews 
(35:27),  Since  there  definitely  is  some  error  in  identifying  the 
aimpoint  on  a  line  target  such  as  a  runway,  the  triangular  distribution 
was  left  intact.  The  triangular  distribution  is  "hard  wired”  into 
AAPMOD  in  routine  “TRISUB.”  It  only  can  be  changed  by  altering  the 
source  code  and  recompiling.  Sensitivity  of  the  triangular  distribution 
end  points  is  investigated  in  Chapter  IX. 

Next,  given  an  aimpoint  intended  by  the  aircrew  (not  necessarily 
where  intended  by  the  attack  planner)  there  is  a  possibility  of 
delivering  the  ordnance  on  other  than  the  "desired”  aimpoint.  Tine 
second  input  variables  affect  the  range  and  deflection  due  to  delivery 
errors  of  bomb  impact  relative  to  the  aircrews'  aimpoint.  This  can  be 
varied  from  pattern  to  pattern.  There  are  also  range  and  deflection 
errors  associated  with  munition  ballistics.  The  standard  deviations  for 
ballistic  errors  were  fixed  at  30  feet  (20.25  feet  CEP)  for  all  weapons. 


The  USAF  Fighter  Weapons  School  considers  typical  ballistic  errors  to  be 
on  the  order  of  5  milliradians  (mils) .  At  4000  feet  slant  range  between 
the  target  and  delivering  aircraft,  5  mils  =  20  feet  CEP,  Delivery 
errors  are  usually  20  mils  or  more,  even  with  computed  release  systems. 
This  is  intuitively  appealing:  bombs  are  fearless  in  the  face  of  heavy 
defenses;  aircrews  are  not. 

The  next  inputs  are  the  release  point  and  the  release  mode  of  the 
munitions.  AAPM0D  allows  for  sticks  of  bombs  to  be  dropped  singly  or  in 
pairs.  This  corresponds  to  modern  tactical  fighter  weapons  release 
systems.  Some  fighters  set  time  spacing  between  releases  while  some 
computed  systems  permit  input  of  desired  ground  spacing  and  release  at 
the  appropriate  time.  The  dive  angle,  true  airspeed  and  bomb 
trajectories  influence  where  the  bombs  actually  will  impact  the  ground. 
This  makes  little  difference  to  AAPM0D  as  the  releases  must  be 
translated  into  intended  bomb  impacts  with  the  ground.  These  can  be 
entered  manually  or  with  a  stick  calculation  routine  built  into  the 
input  program.  The  release  altitude  is  an  indirect  input  for  AAPM0D; 
ranging  errors  and  weapon  reliability  are  the  direct  inputs  that  relate 
to  release  altitude.  AAPM0D  does  not  calculate  weapon  fragmentation 
damage  to  the  delivering  aircraft;  however,  the  probability  of  an 
aircraft  surviving  in  the  target  area  to  reattack  may  be  input  to 
account  for  the  effect  of  fragmentation  damage.  Low  releases  could 
prevent  the  fuze  from  functioning  properly.  This  can  be  considered  when 
inputting  weapon  reliability,  although  an  aggregate  figure  would  be 
required.  This  is  a  simplification,  but  a  reasonable  one.  The 
orientation  of  the  stick  is  set  hy  the  attack  heading  of  the  aircraft, 
entered  on  a  pass-by-pass  basis. 


Once  the  bombs  or  submunitions  impact  the  runway,  they  must  form 
craters  to  impede  aircraft  movement.  As  long  as  the  analysis  is 
restricted  to  conventional  weapons  (as  is  the  case  with  AAPMOD),  it 
really  does  not  really  matter  what  made  the  hole  —  as  long  as  the  hole 
is  there.  This  is  exactly  the  case  with  AAPMOD.  Where  the  aircrew 
would  think  in  terms  of  munitions,  AAPMOD  uses  crater  sizes  defined  for 
the  hardness  of  the  particular  target.  Different  circumstances  dictate 
the  crater  size  a  munition  will  produce.  For  surfaces,  .AAPMOD  uses  two 
categories  of  crater  sizes,  '’deny-TOL*'  and  "deny-aircraft-taxi,H 
illustrated  by  the  following  example:  Assume  that  the  result  of  a  Mk-82 
impact  prevents  aircraft  takeoffs  (deny-TOL)  within  a  15-foot  crater 
radius.  The  same  aircraft  might  be  able  to  taxi  slowly  over  some  of  the 
minor  rubble  and  cracks  to  within  a  10-foot  radius  of  the  crater  (deny- 
aircraft-taxi).  The  same  munition  might  result  in  a  different  crater 
size  upon  impact  with  a  building  of  equal  hardness.  Furthermore,  it  is 
logical  that  the  near  miss  of  a  building  might  cause  some  damage,  but 
not  as  much  as  a  direct  hit. 

Bombs  are  discrete  in  nature,  but  the  damage  they  render  can  be 
considered  continuous*  Many  different  permutations  of  munitions,  fuze 
settings,  explosives,  and  variations  in  target  hardness  and  impact 
conditions  result  in  a  continuum  of  crater  sizes.  Crater  size  is 
treated  as  a  continuous  variable  in  this  analysis. 

AAPMOD  uses  square  craters  since  they  greatly  simplify  the  search 
procedure  for  clear  takeoff  and  landing  strips.  Tills  may  appear  to  be  a 
radical  simplification,  but  the  amount  of  misrepresented  area  is 
actually  quite  small.  The  side  of  the  square  crater  is  adjusted  such 
that  the  area  inside  the  square  is  the  same  as  that  of  the  equivalent 


round  crater;  the  side  of  the  square  crater  is  not  the  same  as  the 
diameter  of  a  round  crater  of  equal  area.  Either  half  side  length  or 
radius  can  be  used  to  load  crater  size  in  AAPMOD,  Miglin  describes 
equivalent  crater  areas  in  great  detail  (35:53-54). 

The  last  variables  of  interest  are  the  minimum  clear  dimensions  for 
aircraft  taxi  and  aircraft  takeoff/landing.  As  discussed  earlier,  taxi 
dimensions  will  be  different  from  takeoff  dimensions. 

In  summary,  there  are  many  types  of  inputs  to  AAPMOD.  The  airfield 
layout  is  fixed  for  the  course  of  the  simulation  as  are  minimum  clear 
dimensions  for  aircraft  operations.  The  location  of  intended  bomb 
impacts  is  fixed  for  a  particular  pattern,  but  can  be  changed  from 
pattern  to  pattern.  Fixed  probabilities  can  be  used  for  aircraft 
arrival  at  the  target,  reattack  of  the  target  (if  used),  and  weapons 
reliability.  Aircraft  arrival  probability  can  be  varied  from  aircraft 
to  aircraft,  while  weapon  reliability  can  be  changed  from  pattern  to 
pattern.  Runway  aimpoint  determination  is  governed  by  a  triangular 
distribution  with  fixed  parameters.  Delivery  and  ballistic  errors  are 
distributed  as  bivariate  normals  with  provisions  to  change  from  pattern 
to  pattern.  Obviously,  this  is  a  very  complicated  setup.  The  reader  is 
encouraged  to  refer  to  Miglin  (35)  for  a  complementary  discussion  of 
input  variables. 

Computer  Coding 

Miglin  identified  the  major  limitation  of  the  FORTRAN  microcomputer 
version  of  AAPMOD  to  be  FORTRAN'S  large  memory  requirements  for  "COMMON" 
variables  (35:93).  COMMON  blocks  can  be  programmed  as  global  variables 
in  other  languages  with  significant  memory  savings.  With  this  in  mind, 
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an  evaluation  of  available  microcomputer  programming  languages  was 
performed. 

The  first  consideration  was  given  to  BASIC,  perhaps  the  most  widely 
used  of  the  microcomputer  languages.  However,  most  computers  have  their 
own  peculiar  versions  of  BASIC  depending  on  the  particular  capabilities 
of  the  hardware,  and  in  some  cases,  non-programmable  read-only-memory 
(ROM)  software.  Furthermore,  translation  of  AAPMOD  to  BASIC  would 
result  in  an  extremely  unwieldy  program  due  to  the  relatively 
unstructured  nature  of  the  BASIC  programming  language.  Even  with  a 
successful  BASIC  implementation  of  AAPMOD,  resulting  execution  time 
would  be  much  slower,  simply  due  to  the  nature  of  BASIC. 

ADA  was  considered  because  of  its  future  as  the  standard 
programming  language  of  the  Department  of  Defense  (DOD).  Unfortunately, 
the  ADA  compilers  available  for  microcomputers  are  not  a  full 
implementation  of  the  language.  Additionally,  ADA  has  such  a  large 
program  overhead  that  much  of  a  microcomputer's  memory  would  be  usurped 
by  the  compiler,  leaving  little  for  AAPMOD  to  use. 

MODULA-2,  due  to  its  general  unavailability  and  standardization, 
and  COBOL,  which  is  unsuitable  for  the  kind  of  programming  necessary  for 
AAPMOD,  were  other  languages  quickly  discarded. 

Two  languages,  PASCAL  and  C,  were  considered.  Both  are  widely 
available  for  microcomputers,  reasonably  standardized,  and  very 
efficient.  Either  would  be  suitable  for  reducing  AAPMOD  to  a  size 
compatible  with  256K  microcomputers*  Both  languages  are  strongly 
structured  and  lend  themselves  to  modular  programming  techniques.  They 
are  available  on  mainframe  computers  as  well,  making  a  new  version  of 
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AAPMOD  potentially  compatible  with  an  excellent  variety  of  hardware.  Of 
the  two  languages,  PASCAL  was  the  language  chosen. 

Several  factors  swayed  the  decision  to  use  PASCAL.  PASCAL  language 
constructs  are  very  similar  to  those  in  ADA,  the  new  DOD  language.  A 
future  translation  of  AAP  to  ADA  would  be  much  easier  from  PASCAL  than 
from  C.  A  review  of  current  software  on  the  market  revealed  that  of  the 
available  C  and  PASCAL  compilers,  costs  of  the  PASCAL  compilers  were 
generally  lower.  One  particular  version  of  PASCAL,  called  TURBO  PASCAL, 
was  particularly  appealing  due  to  its  low  cost,  versatility,  and  wide 
range  of  hardware  compatibility.  Therefore,  TURBO  PASCAL  was  chosen  as 
the  language  for  the  microcomputer  version  of  AAPMOD. 

TURBO  PASCAL  is  readily  available  from  Borland  International,  4113 
Scotts  Valley  Drive,  Scotts  Valley,  CA  95066  at  very  reasonable  cost. 
Versions  are  available  for  the  following  operating  systems:  Digital 
Research’s  CP/M-80,  CP/M-86 ,  and  Concurrent  CP/M-86;  Microsoft’s  MS-DOS; 
and  International  Business  Machine’s  PC-DOS.  It  is  largely  compatible 
with  many  other  versions  of  PASCAL.  TURBO  PASCAL  compiles  very  quickly 
and  compactly  into  command  files  capable  of  standing  alone  and  running 
at  relatively  quick  execution  speeds.  Since  random  access  memory  is  a 
critical  resource  for  AAPMOD,  not  having  to  load  TURBO  PASCAL  into 
memory  to  run  the  program  is  a  significant  advantage.  Another  advantage 
of  this  compiler  is  support  for  the  Intel  8087  arithmetic  coprocessor 
unit  (for  those  microcomputers  so  equipped),  resulting  in  a  drastic 
reduction  of  time  required  to  run  long  programs  such  as  AAPMOD. 

The  next  step  was  to  take  a  critical  look  at  Miglin’s  version  of 
AAPMOD  and  AAPIN.  AAPMOD  was  deemed  to  be  reasonable  considering  what 
it  was  designed  to  do.  There  are  enough  comments  to  make  the  code 


decipherable  without  adding  excessively  to  the  length.  The  large 
storage  requirements  of  AAPMOD  make  it  inadvisable  to  add  any  more  code 
than  absolutely  necessary. 

AAPIN  required  some  modifications.  This  program  was  used  to 
generate  the  AAPMOD  input  file.  This  could  be  quite  an  undertaking  with 
up  to  112  target  elements  and  32  passes  with  11  different  hardness 
codes,  6  different  weapons  and  12  different  attack  patterns.  Thexe  was 
no  provision  to  change  an  existing  input  file.  The  analyst  would  have 
to  run  the  existing  file  or  spend  the  time  to  upload  a  brand  new  file 
for  the  next  run.  Alternatively,  the  analyst  could  use  a  computer  text 
editor  to  change  numbers  selectively  in  the  input  file,  but  this  would 
bypass  all  input  program  error  trapping  and  conceivably  result  in  a 
latent  or  run-time  error.  Finally,  AAPIN  was  largely  unstructured, 
making  translation  to  PASCAL  difficult  in  its  current  form.  The 
reasonable  course  of  action  was  to  break  AAPIN  into  three  smaller 
programs. 

AAPIN  has  sections  dealing  with  the  target  array,  weapons,  attack 
patterns,  and  a  set  of  passes  planned  against  the  target  complex.  These 
sections  were  ideal  dividing  points.  The  current  set  of  programs 
consists  of  the  following: 

AAPTGT  -  Input  or  modify  target  elements. 

AAPWPN  -  Input  or  modify  weapons  and/or  attack  patterns, 

AAPMSN  -  Combine  weapons  and  attack  patterns  into  passes 
against  targets  in  the  target  file. 

AAPMOD  -  Execute  the  file  generated  by  AAPMSN. 

This  scheme  has  several  advantages.  First;  target  files  can  be 
maintained  for  any  number  of  potential  targets.  This  can  be 
accomplished  long  before  any  hostilities  erupt  and  can  be  updated  as 


required.  The  same  is  true  of  the  possible  weapons  and  attack  patterns. 
The  weapon  and  pattern  modules  were  combined  since  the  individual 
sections  were  quite  small.  Different  weapon  files  could  be  maintained 
if  there  were  more  than  6  different  weapons  or  if  more  than  12  patterns 
were  desired.  It  is  easiest  to  envision  this  situation  if  more  than  one 
type  of  aircraft  were  to  be  stationed  at  the  same  base. 

With  the  predefined  target  and  weapon/pattern  databases,  the 
analyst  could  run  AAPMSN  to  generate  a  specific  mission  file.  This 
largely  would  be  a  matter  of  matching  targets  to  attack  with  weapons  and 
patterns  from  the  predefined  database.  Most  of  the  time  consuming  work 
of  entering  target,  weapon,  and  pattern  data  could  be  performed  before  a 
time-critical  analysis  was  required.  The  file  generated  by  AAPMSN  would 
be  used  to  run  AAPMOD.  If  minor  changes  were  desired,  the  analyst  would 
have  to  rerun  AAPMSN  or  use  a  text  editor  to  change  the  AAPMOD  input 
file. 

Verification  and  Validation 

During  the  translation  process,  the  FORTRAN  V  computer  code  was 
verified  and  validated.  Verification  was  limited  since  the  underlying 
models  were  not  readily  available. 

Errors  were  discovered  when  working  with  the  AAPMOD  code.  A 
variable  was  misspelled  in  one  instance.  In  FORTRAN,  variables  need  not 
be  declared.  The  misspelling  implicitly  declared  a  single  occurrence  of 
a  new  variable.  Five  other  variables  were  declared,  but  not  used 
anywhere  in  the  program.  Though  corrections  were  made,  no  effect  was 
noted  in  the  output  from  runs  conducted  before  and  afterward.  One 
subroutine  in  AAPMOD  is  never  called.  This  relates  to  runway  repair 


which  has  been  deactivated  in  AAPMOD.  Aside  from  the  errors  discovered, 
the  code  appeared  reasonable.  The  logic  was  easy  enough  to  follow 
although  more  comments  and  structured  programming  would  have  been 
helpful. 

Some  validation  had  beer,  conducted  previously  by  Miglin,  He 
compared  AAPMOD  outputs  with  AAP  outputs  during  initial  testing  of  the 
new  product.  He  found  that  some  minor  deviations  occurred  between  the 
two  versions,  but  these  were  limited  to  less  than  1.0  percent  of  the 
original  value.  This  easily  could  be  attributed  to  lack  of 
synchronization  in  the  random  number  stream  between  the  two  versions. 
What  is  more,  the  results  appeared  to  be  reasonable.  Changes  which 
should  have  altered  the  probabilities  of  runway  cut  produced  changes  in 
the  predicted  direction.  However,  the  high  levels  of  the  probabilities 
of  cut  were  somewhat  surprising.  As  will  be  seen  in  the  next  chapter, 
only  six  aircraft  participated  in  the  test  case  attack.  These  aircraft 
achieved  probabilities  of  cut  for  a  runway  complex  with  two  runways  of 
0.700  for  one  set  of  parameters.  This  seems  quite  high  for  only  six 
aircraft.  The  answers  only  can  be  considered  as  relative  to  one  another 
rather  than  absolute. 

Random  Number  Generation.  An  area  of  concern  with  the  FORTRAN 
version  of  AAPMOD  was  in  pseudo-random  number  generation.  The  random 
number  generator  used  in  AAPMOD  is  the  intrinsic  generator  found  in 
FORTRAN  V  as  implemented  on  the  Control  Data  Corporation  6600,  CYBER 
(45).  This  generator  is  a  congruential  generator  using  modulus  248.  It 
has  passed  several  tests  for  random  number  generators  Including  the 
Coveyou-MacPherson  test,  an  autocorrelation  test,  a  pairs-triplets  test 
and  others  described  in  Knuth  (30).  In  addition,  a  statistical 


experiment  was  conducted  during  the  initial  stages  of  this  analysis 
using  different  random  number  seeds  and  found  that  the  random  number 
streams  were  not  significantly  non-random.  The  CYBER  random  number 
generator  passed  all  aforementioned  tests.  The  analysis  proceeded 
assuming  that  random  number  streams  were  valid  and  truly  "random. " 

Random  number  generation  was  a  concern  with  the  microcomputer 
version  as  well.  Several  tests  were  performed  on  the  TURBO  PASCAL 
random  number  generator:  a  period  test  of  50  million  numbers,  several 
replications  of  100-bin  and  1024-bin  chi-square  goodness-of-fit  tests, 
and  a  random  walk  test  of  500,000  numbers.  Results  of  the  chi-square 
tests  may  be  reviewed  at  Appendix  F.  Within  an  epsilon  of  0.0000000001, 
no  repeating  pseudo-random  numbers  occurred  with  more  than  50  million 
generated  between  the  values  of  0  and  1.  The  random  numbers  were 
distributed  uniformly  (within  statistically  valid  limits)  across  1024 
bins  of  approximately  32,000  observations .each. 

The  TURBO  PASCAL  random  number  generator  appears  suitable  for  the 
purposes  of  AAPMQD,  One  particular  drawback,  however,  is  that  it  cannot 
be  seeded.  Therefore,  AAPMQD  results  on  microcomputers  cannot  be 
duplicated  precisely  from  run  to  run.  However,  the  variance  for  Monte 
Carlo  iterations  numbering  more  than  50  was  so  small  that  this  did  not 
prove  to  be  a  major  stumbling  block.  Results  from  the  CDC  6600  and  the 
NEC  Information  Systems  Advanced  Personal  Computer  (NEC  APC)  agree  very 
closely.  Subsequent  results  can  stand  alone. 

To  further  validate  the  TURBO  PASCAL  version  of  AAPM0D,  results 
from  the  FORTRAN  and  PASCAL  versions  of  AAPM0D  with  the  same  number 
streams  were  compared.  For  these  tests,  the  number  stream  was  not 


random,  but  served  to  validate  the  code.  The  results  were  identical 
within  the  accuracy  displayed  in  the  outputs. 

Distributions.  With  the  exception  of  the  triangular  distribution 
mentioned  earlier,  the  only  random  variate  used  by  AAPMOD  is  generated 
from  the  normal  distribution.  The  exact  inverse  method  is  used, 
although  Miglin  suggested  changing  the  generator  if  operations  on 
microcomputers  proved  too  slow  with  the  300  or  so  calls  made  per  Monte 
Carlo  iteration  (35;63).  Further  information  on  this  subject  appears  in 
Chapter  IX. 

Microcomputer  Compatibility 

For  full  details  of  microcomputer  system  hardware  and  software 
requirements,  refer  to  the  AAPMOD  User  Manual  at  Appendix  A, 
Section  III. 

The  TURBO  PASCAL  loading  programs  —  AAFi’GT,  AAPWPN,  and  AAPMSN  — 
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can  be  run  on  virtually  any  machine  with  64K  memory  or  more.  All  three 
programs  were  tested  successfully  with  TURBO  PASCAL  Versions  1.0,  2*0, 
and  2.1.  The  programs  also  tested  successfully  on  the  following 
systems:  a  64 K  Kay pro  4  running  Digital  Research's  CP/M-80,  Version  2.2; 
a  56K  Electronic  Control  Technology  TT-10  system  running  CP/M-80, 
Version  2.2  with  ZCPR2;  a  64K  Integrand  Single  Board  Computer  (S-100 
Super-Quad)  running  CP/M-80,  Version  2.2;  and  a  256K  NEC  APC  running 
Digital  Research's  CP/M-86,  Version  1.107,  Concurrent  CP/M-86,  Version 
2.00,  and  Microsoft's  MS-DOS,  Version  2.11.  Files  generated  by  the 
programs  will  be  completely  compatible  among  machines,  operating 
systems,  and  versions  of  TURBO  PASCAL. 


AAPMOD  requires  at  least  192K.  AAPMOD  runs  quite  nicely  on  a  NEC 
APC  with  256K,  running  the  operating  systems  mentioned  in  the  previous 
paragraph  for  the  NEC  APC  and  all  previously  mentioned  versions  of 
TURBO  PASCAL. 

Contingent  on  the  scenario  and  the  machine,  execution  time  can  be 
quite  lengthy.  The  NEC  APC  with  a  floating  point  (Intel  8087) 
coprocessor  unit  ran  sample  test  cases  in  approximately  3  to  8  minutes. 
These  same  runs  required  about  3  to  6  seconds  on  the  CDC  6600  CYBER. 
Without  the  8087  coprocessor,  a  16-bit  machine  with  a  5  MegaHertz  8086 
central  processor  unit  will  require  about  7  times  as  long  to  run  the 
same  program  based  on  results  from  a  NEC  APC. 

In  summary,  the  loader  programs  run  efficiently  on  a  great  variety 
of  microcomputers,  including  many  8-bit  machines,  AAPMOD  requires  a 
microcomputer  with  more  capability  in  terms  of  memory  and  execution 
speed.  The  floating  point  arithmetic  coprocessor  is  strongly 
recommended. 

With  the  means  of  running  the  verified  and  partially  validated 
AAPMOD  programs,  the  analysis  continued  with  statistical 
experimentation.  Chapter  V  begins  the  experimentation  with 
documentation  of  the  initial  screening  design. 


V.  Initial  Experimental  Procedure 


Focus  of  the  Analysis 

This  analysis  focuses  on  a  wing  or  squadron  weapons  office  with  a 
microcomputer,  the  AAPMOD  series  of  programs,  and  a  fragmentary  order 
(frag).  A  frag  tasks  the  unit  to  attack  a  particular  target  (such  as  an 
airfield)  with  specified  munitions  and  a  specified  number  of  aircraft. 
The  task  of  the  weapons  officer  and  the  aircrews  is  to  determine  the 
best  way  to  attack  the  airfield.  The  two  variables  under  the  direct 
control  of  the  aircrew  are  attack  heading  and  weapon  spacing.  Note  that 
this  is  a  completely  different  problem  from  that  of  higher  headquarters 
planners.  In  the  latter  case,  the  number  of  aircraft  and  munitions 
loads  would  be  the  variables  of  interest.  The  focus  of  the  analysis 
influences  the  course  of  the  experimentation  and  the  variables 
considered. 

Overall  Experimental  Design 

The  design  of  the  airfield  attack  analysis  achieved  a  precise 
estimate  of  system  responses  to  airfield  attacks  with  minimal  cost.  The 
analysis  made  use  of  a  screening  design  to  be  described  in  this 
chapter.  The  objective  was  to  fit  a  response  surface  to  the  sample 
airfield  shown  in  Figure  1  on  page  35. 

Response  surface  fit  is  accomplished  more  easily  as  the  number  of 
significant  independent  variables  decreases.  The  screening  design  was 
intended  to  eliminate  insignificant  variables. 

The  next  step  was  to  use  the  method  of  steepest  ascent  (first- 
order)  and  quadratic  (second-order)  fit  of  a  response  surface  to  AAPfrKJD 
output.  The  response  surface  was  used  to  identify  optimal  attack 


parameters  consistent  with  analyst  judgement.  The  indicated 
mathematical  optima  were  infeasible  in  some  cases,  but  the  boundaries  of 
the  feasible  regions  still  indicated  optimal  parameters  subject  to 
realistic  constraints. 

Due  to  the  complexities  of  airfield  attack,  the  first  step  of  this 
analysis  was  to  gain  an  understanding  of  the  overall  problem.  This  was 
accomplished  by  considering  the  impact  of  variables  expected  to  be 
significant.  The  variables  germane  to  the  analysis  included  variables 
under  aircrew  control  as  well  as  variables  not  under  aircrew  control. 
Uncontrolled  variables  affect  system  responses,  and  may  influence  the 
optimal  values  of  the  variables  the  aircrews  can  control. 

For  example,  if  weapon  delivery  errors  are  zero  (not  directly 
controlled  by  the  aircrew),  the  optimal  attack  heading  (controlled  by 
the  aircrew)  is  perpendicular  to  the  runway  with  weapon  spacing 
(controlled  by  the  aircrew)  set  to  span  the  runway  width.  In  this  case, 
a  perpendicular  attack  concentrates  the  munitions  on  the  runway  surface 
with  the  greatest  density  and  highest  probability  of  cut  (15,55).  In 
contrast,  the  adverse  effect  of  large  delivery  errors  on  the  probability 
of  cut  is  reduced  by  attacking  tha  runway  from  approximately  30°  offset 
from  the  runway  axis  and  larger  weapon  spacing. 

Major  Assumptions 

The  experimental  designs  used  in  this  analysis  comply  with  the 
three  basic  principles  as  set  forth  by  Montgomery  (38i2),  These 
principles  are  replication,  randomization,  ami  blocking.  Replications 
are  employed  to  estimate  error  and  provide  additional  degrees  of 
freedom.  Randomization  occurs  in  the  sense  that  random  number  screams 


are  used.  The  CDC  CYBER  was  used  for  this  analysis,  which  provided  the 
capability  of  seeding  the  random  number  generator  and  synchronizing  the 
random  number  streams  across  replications.  Finally,  blocking  was  used 
to  separate  the  effect  of  the  common  random  number  streams  from  the 
effect  of  the  airfield  attack  input  parameters. 

/ 

Initial  Screening  Design 

Factors  and  their  levels  are  described  in  Table  3.  The  rationale 
for  these  levels  is  as  follows.  The  prooability  of  mission  survival  in 
Viet  Nam  was  in  excess  of  0.99.  In  the  1973  Arab-Israeli  War,  the 
Israelis  achieved  c  probability  of  survival  of  0.97  during  the  peak  loss 
periods.  Even  for  today's  high  threat  environment,  the  range  0.99  to 
0.92  seems  broad  enough  to  bracket  possible  real-life  values, 

AAPMOD  allows  virtually  any  weapon  type  since  they  are  defined  in 
terms  of  crater  radii.  However,  the  preponderant  runway  assault 
munitions  are  general  purpose  bombs.  The  most  common  general  purpose 
bombs  are  500-pound  Mk-82's  and  2000-pound  Mk-84's.  Mk-82's  are  located 
in  munitions  storage  areas  throughout  the  U.S.  sphere  of  influence  since 
these  are  used  for  aircrew  training*  In  addition  to  training  munitions, 
vast  quantities  of  Mk-82*  s  are  stockpiled  in  Europe  for  contingencies  in 
that  region. 

Crater  radius  is  the  next  input  variable.  To  keep  the  analysis 
unclassified,  the  crater  radii  were  estimated  at  first.  The  estimate 
was  updated  by  subsequent  calculations.  For  the  initial 
experimentation,  crater  radii  for  Mk-84  impacts  on  runway  #1  were  set  at 
40  and  15  feet  for  deny-TOL  and  deny-aircraft-taxi  values,  respectively. 
For  runway  #2,  the  values  were  50  and  20  feet.  For  Mk-821 s,  the  values 


Code 

Factor 

Hish  Level  (+) 

Low  Level  (-) 

A 

Pr( arrival) 

0.99 

0.92 

B 

Weapon  type 

Equiv  crater  radius 

Mk-84 

Mk-S2 

Runway  #1 

40/15  ft 

24/9  ft 

Runway  #2 

50/20  ft 

30/10  ft 

C 

Del  error  std  dev 

300/150  ft 

100/50  ft 

REP/DEP 

202.5/101.25  ft 

67.5/33.75  ft 

D 

Number  weapons 

12 

6 

E 

Weapon  reliability 

0.99 

0.59 

F 

Attack  heading 

O 

• 

O 

o 

140.0° 

G 

Weapon  spacing 

100  ft 

50  ft 

Table  3.  Factor  Levels  for  2-Level  Initial  Screening  Design 


were  24  and  9  feet  for  runway  #1,  and  30  and  10  feet  for  runway  #2.  The 
difference  in  values  for  the  two  runways  is  due  to  the  different 
hardness  levels  of  the  pavement  surfaces. 

Updated  crater  values  were  calculated  using  equations  developed  in 
Breuer  (6)  for  the  two  weapons  of  interest.  The  methodology  is  based  on 
classwork  in  Systems  Engineering  5.62,  Terminal  Effects  of  Conventional 
Weapons.  Since  cratering  is  mostly  a  function  of  weapon  blast,  the  bare 
charge  equivalent  weight  is  found  using  the  following  formula: 

0.4  “1 

0.6  + - * 

1  +  2(M/C) 

where 

C  is  the  weight  of  the  charge  in  the  encased  weapon 

M  is  the  weight  of  metal  in  the  casing 

W  is  the  bare  charge  equivalent  weight 
© 


This  equation  accounts  for  the  amount  of  blast  energy  that  is 
absorbed  in  accelerating  fragments.  This  bare  charge  equivalent  is  an 
equivalent  weight  of  Tritonal  which  must  be  converted  to  TNT.  This  is 


done  using  the  formula: 

WTNT  *  (1*13)  ^TritonaP 
The  crater  radius  is  calculated  as  follows: 


rcrater  *  <l  *  °'5>  W1 


The  larger  value  was  used  as  an  approximation.  Table  4  summarizes 
the  resulting  calculations. 


Weapon 

M 

C 

W 

e 

WTNT 

rcrater 

Mk-82 

339 

192 

132 

149 

7.64  ft 

Mk-84 

107S 

945 

687 

776 

13.78  ft 

Table  4.  Crater  Radii  for  Mk-82  and  Mk-84  Weapons 

The  crater  sizes  shown  in  Table  4  correspond  to  the  deny-aircraft- 
taxi  crater  sizes  for  AAPMOD.  Some  estimation  for  crater  sizes  which 
would  deny  takeoff  and  landing  was  needed.  Lt  Stephen  Colony  (9)  with 
the  Rapid  Runway  Repair  Team  of  the  Wright-Pat  terson  section  of  Prime 
Base  Engineering  Emergency  Force  stated  that  significant  buckling  and 
heaving  occur  from  10  to  15  feet  beyond  the  physical  opening  of  a 
crater.  The  10-foot  figure  was  used  for  the  Kk-82*s  and  15  feet  for  the 
Hk-84,s.  This  puts  the  deny-aircraft-TOL  crater  sizes  at  17.64  feet  for 


Mk-82's  and  28.78  feet  for  Mk~84’s.  Definitions  of  deny-TOL  and  deny- 
aircrafc-taxi  values  are  given  on  page  41. 

The  next  variable  of  interest  was  delivery  error.  There  is  general 

\ 

agreement  in  the  tactical  fighter  community  that  ranging  errors  are 
usually  larger  than  deflection  errors.  This  was  corroborated  by  an 
informal  poll  of  fighter  pilots  attending  AFIT.  Deflection  error  is 
estimated  to  be  approximately  one  half  the  value  of  ranging  error  for  a 
particular  delivery.  For  instance,  on  a  bad  day,  the  typical  pilot  may 
fling  bombs  outside  of  qualification  criteria  which  is  175  feet  for  the 
most  likely  type  of  delivery  for  these  bombs.  Bombing  results  from 
tactical  air-to-ground  ranges  and  realistic  exercises  such  as  Red  Flag 
indicate  that  peacetime  delivery  errors  will  double  during  wartime. 

A  minor  problem  exists  when  trying  to  input  range  and  deflection 
delivery  accuracy.  Aircrews  think  in  terms  of  probable  error  while 
AAPMOD  requires  standard  deviations  for  the  underlying  bivariate  normal 
distribution.  These  are  related  easily  by  the  formula: 

range  standard  deviation  ■  range  error  probable  /  0.675 

To  avoid  confusion,  AAP.WPN  accepts  probable  error  figures  and  then 
converts  them  to  standard  deviations.  Echo  checks  of  data  within  the 
program  reconvert  the  standard  deviations  to  probable  errors  prior  to 
display. 

For  the  initial  screening  design,  a  300-foot  standard  deviation  was 
considered  for  the  high  value  and  100  feet  for  the  low  value.  The  high 
value  is  representative  of  manual  release  systems  while  the  low  figure 
is  intended  to  represent  the  average  pilot  flying  under  hostile  fire  in 
the  F-16  or  A-7  with  automated  release  systems.  In  terms  of  range  error 


56 


probable  (REP),  the  high  value  is  202.5  feet  and  the  low  value  is  67.5 
feet.  The  corresponding  deflection  standard  deviations  are  150  and  50 
feet  (equivalent  deflection  errors  probable  of  101.25  and  33.75  feet). 

Twelve  bombs  were  picked  as  the  maximum  load  with  Mk-82’s  in  mind. 
No  current  tactical  fighter  can  carry  12  Mk-84’s.  This  figure  was 
chosen  to  drive  the  analysis  to  reasonably  high  probabilities  of  cut. 
If  need  be,  the  high  figure  for  Mk-84’s  can  be  considered  as  several 
sorties  for  the  sake  of  comparison.  A  low  figure  of  six  bombs  was 
chosen.  Virtually  all  tactical  fighters  can  carry  six  Mk-82's.  The 
A-10  aircraft  can  carry  six  Mk-84  *  s .  These  figures  served  their  purpose 
for  the  initial  screening  design. 

Weapon  reliability  for  general  purpose  bombs  is  very  good  if  the 
bomb  is  released  at  the  proper  altitude  and  not  too  low.  For  dual 
fuzing,  the  0.99  figure  is  a  standard  with  newer  model  M904  and  M905 
nose  and  tail  fuzes.  However,  some  means  were  needed  for  dealing  with 
low  release  altitudes,  weapons  release  system  malfunctions,  and 
incorrect  cockpit  switch  settings.  Tactical  doctrine  dictates  that  the 
typical  aircrew  would  tend  to  remain  close  to  the  ground  as  long  as 
possible  to  avoid  hostile  fire.  Low-altitude  ingress  would  result  in 
increased  numbers  of  dudded  bombs  due  to  low  releases  in  contrast  with 
high-altitude  ingress.  The  0,59  low-end  weapon  reliability  accounts  for 
low  altitude  releases,  weapons  mal functions,  and  incorrect  cockpit 
switch  settings. 

Attack  headings  were  chosen  relative  to  runway  #1  depicted  in 
Figure  1»  Conventional  wisdom  says  to  attack  a  line  feature  at  30°  off 
the  main  axis  with  a  stick  of  bombs.  The  stick  resolves  some  of  the 
possible  ranging  errors  while  the  30}  angle  resolves  some  of  the 
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possible  deflection  errors.  Experienced  aircrews  do  not  attack  along 
the  primary  axis  of  a  runway  to  avoid  missing  the  runway  with  all  bombs 
to  one  side  or  the  other.  The  angling  attack  helps  prevent  this. 
Suspecting  30°  as  a  near-maximum,  axes  of  attack  were  chosen  to  bracket 
this  figure.  The  screening  experiment  was  run  using  angles  of  40°  and 
10°  relative  to  the  main  runway.  This  becomes  140°  and  170°  in  the 
airfield  reference  frame.  The  170°  was  considered  the  high  figure. 

The  last  item  is  weapon  spacing.  The  50-foot  value  is 
approximately  equivalent  to  the  minimum  intervalometer  setting  for 
typical  fighters  at  attack  speeds.  Increasing  the  dive  angle  is  one  way 
to  shrink  the  longitudinal  distance  between  weapon  impacts,  but  dive 
angles  in  excess  of  20°  are  required  before  this  is  very  effective. 
Such  large  dive  angles  would  expose  aircrews  to  hostile  fire  for  longer 
periods  of  time.  For  this  reason,  high  dive  angles  were  not  considered. 
The  100-foot  value  is  a  high-end  value  considering  crater  radii  and 
number  of  bombs  carried.  A  stick  of  12  bombs  would  cover  1100  feet 
while  a  stick  of  6  bombs  would  cover  500  feet.  Spacing  the  bombs 
further  apart  might  decrease  the  chances  of  denying  a  minimum  clear 
strip  for  aircraft  takeoff.  It  also  should  be  noted  that  larger  inter¬ 
bomb  distances  would  mean  longer  times  spent  on  final  approach  waiting 
for  the  last  bomb  to  release.  This  would  decrease  survivability  because 
of  increased  exposure  to  hostile  fire.  Fortunately,  computed  release 
systems  are  not  so  limited  in  this  regard. 

The  preceding  paragraph  concentrated  on  “singles”  release  logic. 
In  other  words,  bombs  are  released  one  at  a  time.  If  the  weapons  pylons 
are  closely  spaced,  two  bomba  released  simultaneously  (paired  release) 
will  impact  in  close  proximity  to  one  another.  There  may  be  some 
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tendency  for  the  bombs  to  spread  apart  or  draw  closer  together  due  to 
ballistic  dispersion.  While  the  expected  distance  between  the  bombs 
would  be  the  distance  between  the  weapons  pylons,  subsequent  analysis 
indicated  ballistic  dispersion  was  sufficient  to  increase  probability  of 
cut  under  certain  circumstances.  Single  release  logic  was  used  for  this 
analysis.  Paired  releases  are  a  subject  of  sensitivity  analysis  in 
Chapter  IX. 

AAPMOD  permits  aircraft  to  reattack;  aircraft  reattack  is  a 
potential  input  option.  However,  the  vast  majority  of  the  fighter 
community  would  only  expose  themselves  once  to  hostile  fire  in  the 
environment  of  an  enemy  airfield.  Reattacks  are  not  considered  in  this 
analysis.  Any  additional  passes  could  be  added  in  the  form  of  more 
aircraft  participating  in  the  attack. 

Other  factors  could  be  considered,  but  the  seven  factors  found  in 
Table  3  were  chosen  as  the  most  likely  to  be  significant.  All  other 
factors  are  held  constant  across  the  entire  experiment.  Weapons  pylons 
were  spaced  20  feet  apart.  Standard  deviations  for  ballistic  dispersion 
were  fixed  at  30  feet  (see  page  39). 


Fractional  Factorial  Design.  Several  choices  were  available  for 
initial  screening  designs.  Fractional  factorial  designs  were  chosen. 
Montgomery  mentions  Plackett-Burmen  designs  but  also  states  ”... these 


designs  are  identical  to  those  presented  earlier  ir»  this  section”  for 

7  3 

seven  factor  designs  (38;346).  Consequently,  the  2^y  and 
designs  described  in  Montgomery  were  used.  The  designs  are  shown  in 


Tables  5  and  6. 


The  appeal  of  fractional  factorial  designs  was  the  drastic 
reduction  in  the  number  of  runs  required.  However,  several  assumptions 
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Generators:  I  *  ABD  -  ACE  =  BCF  =  ABCG 


^  ^  ^  i/  J— I  A  \J 

A  B  C  AB  AC  BC  ABC 


a  + 

b  -  +  - 

c  + 

ab  +  +  .  - 

ac  +  -  + 

be  -  +  + 

abc  +  +  + 


+ 

+  + 


*  main  effects  which  are  confounded  with  second-  and 
higher-order  interactions  of  effects 


/  -fj 

Table  5.  2jjj  Design  and  Input  Matrix 


Generators: 

I  * 

A3CE  » 

ACDG 

=  BCDF 

A*B* 

c* 

D* 

AB 

AC 

AD 

BC 

BD 

CD 

E* 

ABC 

ABD 

* 

G 

\CD 

* 

F 

BCD 

ABCD 

1  (1) 

_ 

- 

- 

- 

+ 

+ 

+ 

+ 

+ 

4- 

_ 

•»» 

— 

4* 

2  a 

+ 

- 

- 

*•* 

- 

- 

- 

4“ 

+ 

4- 

4- 

4* 

4* 

- 

- 

3  b 

- 

+ 

- 

- 

- 

+ 

+ 

- 

4- 

+ 

4- 

- 

4* 

- 

4  c 

- 

- 

4* 

- 

4* 

- 

+ 

- 

4* 

«*■* 

4- 

- 

4* 

4* 

- 

5  d 

- 

- 

- 

4* 

+ 

4* 

- 

4* 

- 

-■ 

4* 

+ 

4* 

- 

6  ab 

+ 

4* 

- 

- 

+ 

- 

- 

- 

- 

4* 

- 

- 

4* 

4* 

4* 

7  ac 

+ 

- 

- 

- 

+ 

- 

- 

+ 

- 

- 

+ 

4- 

4* 

8  ad 

+ 

- 

- 

+ 

- 

- 

4* 

+ 

- 

- 

+ 

- 

- 

4* 

+ 

9  be 

- 

+ 

+ 

- 

- 

- 

4* 

+ 

- 

4- 

4* 

- 

4* 

10  bd 

- 

4* 

- 

- 

4* 

- 

+ 

- 

4- 

- 

4* 

- 

4- 

11  cd 

- 

- 

+ 

+ 

+ 

- 

- 

- 

4- 

+ 

- 

- 

4* 

12  abc 

+ 

4* 

+ 

- 

+ 

+ 

«• 

+ 

- 

w» 

4- 

- 

- 

<*» 

- 

13  abd 

4* 

4* 

4* 

+ 

- 

4- 

- 

* 

- 

- 

4- 

- 

- 

- 

14  acd 

4* 

AM 

4* 

+ 

- 

+ 

+ 

- 

4- 

- 

4* 

- 

- 

15  bed 

- 

+ 

+ 

■f 

- 

- 

- 

4* 

4- 

+ 

«w 

- 

- 

4- 

- 

16  abed  + 

4* 

■f 

+ 

+ 

+ 

4* 

4* 

4* 

4- 

4- 

4- 

4* 

4* 

4* 

# 

main  effects  which 

are  confounded 

with 

third* 

-  and 

higher-order  interactions  of  effects 

Table  6* 
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had  to  be  met.  The  population  needed  to  be  normally  distributed.  There 
is  a  strong  historical  basis  for  assuming  that  delivery  and  ballistic 
errors  are  normally  distributed.  In  fact,  the  one  random  variate  used 
in  AAPMOD  is  normal. 

Next,  the  population  error  variance  was  assumed  homogeneous.  This 
was  tested  using  Bartlett’s  test.  Population  t;rror  variance  was 
homogeneous  at  a  level  of  significance  of  0.10  or  better  in  all  but  one 
case. 

For  fractional  factorial  designs,  effects  must  be  additive,  a  large 
number  of  treatments  are  required,  and  the  design  must  be  balanced  with 
equal  levels  across  factors.  In  this  analysis,  the  effects  were  assumed 
additive,  treatments  were  specified  by  standard  designs,  and  a  balanced 
design  with  equal  levels  across  factors  was  used. 

Finally,  high-order  interactions  must  be  assumed  negligible.  The 
experiment  revealed  virtually  all  2-factor  interactions  to  be 
significant,  therefore  negating  this  assumption.  In  some  cases,  higher- 
order  interactions  also  were  significant,  but  these  were  confounded 
within  aliases  to  be  discussed  subsequently. 

There  are  some  disadvantages  to  the  fractional  factorial  design, 
however.  Aliasing  does  take  place,  balanced  designs  are  required, 
computations  are  more  complex,  and  fractional  factorial  designs  may  not 
be  available  on  some  commercial  statistical  packages. 

Before  proceeding  further,  a  discussion  of  design  resolutions  is  in 
order.  Resolution  III  designs  have  main  effects  aliased  with  2-factor 
interactions.  All  interactions  must  be  assumed  negligible.  This  was 
not  the  case  for  this  analysis.  The  resolution  IV  design  has  no  main 
effect  aliased  with  any  2-factor  interactions,  but  2-factor  interactions 
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are  aliased  with  each  other.  Resolution  V  designs  have  no  main  effect 
or  2-factor  interactions  aliased  with  any  other  main  effect  or  2-factor 
interaction.  Throughout,  3-factor  interactions  and  higher  are  assumed 
negligible  with  the  rationale  that  3-way  interactions  are  difficult  to 
explain  in  real-life  terms  and  Montgomery's  contention  that  3-way 
interactions  are  seldom  significant  in  real  life  (38:326).  Therefore, 
the  resolution  V  design  would  have  been  the  obvious  choice. 
Unfortunately,  each  time  the  resolution  increases,  the  number  of 
required  design  points  doubles.  The  resolution  IV  design  was  a  good 
compromise.  In  addition,  the  resolution  III  design  was  also  used  to 
identify  significant  interactions  within  the  aliases. 

Separate  design  points  were  run  for  the  resolution  III  and 
resolution  IV  designs.  This  would  have  helped  to  separate  interactions 
within  the  aliases  if  enough  interactions  had  been  insignificant.  The 
resolution  III  design  depicted  in  Table  5  and  the  resolution  IV  design 
in  Table  6  were  run  using  the  design  matrices  located  at  Appendix  H. 

Sample  Size  and  Reliability 

The  Monte  Carlo  simulation  performed  by  AAPMOD  consists  of  a  user- 
specified  number  of  replications,  called  iterations  or  samples  in  AAPMOD 
documentation  (27).  If  the  user  specifies  200  or  less  samples,  the 
single  run  of  AAPMOD  consists  of  the  specified  number  of  samples.  If 
more  than  200  samples  are  specified  and  the  option  is  selected,  AAPMOD 
will  stop  at  200  samples,  calculate  the  number  of  additional  samples 
required  to  meet  a  user-specified  level  of  significance,  and  complete 
the  calculated  number  of  samples.  For  a  balanced  design,  200  iterations 
were  usad  throughout  the  analysis. 


Three  separate  AAPMOD  replications  were  accomplished  at  each  design 
point  to  test  the  random  number  generator  and  provide  degrees  of  freedom 
for  the  analysis.  Three  seeds  drawn  from  the  random  number  table  in 
Montgomery  (38:532)  were  used  for  each  treatment.  Consequently,  each 
treatment  was  run  a  total  of  600  times:  200  in  each  of  3  replications. 

For  AAPMOD  runs  consisting  of  200  iterations,  the  sample  variance 
of  differences  between  probabilities  of  runway  cut  from  seed  to  seed  was 
only  0,030  with  mean  values  of  approximately  0.5,  The  random  number 
streams  were  not  statistically  non-random.  As  a  point  of  interest,  the 
implied  number  of  replications  indicated  by  the  sample  variance  of  0,030 
was  1.3  to  detect  a  0.1  measurable  difference  in  probability  of  cut 
between  treatments.  Using  three  replications  drops  the  predicted 
measurable  difference  to  0.06,  It  should  be  noted  that  future  runs 
could  use  the  AAPMOD  facility  of  error  checking  to  achieve  the  desired 
error.  This  was  inappropriate  for  this  analysis  because  of  the  balanced 
designs  used;  if  AAPMOD  calculated  its  termination  points,  the  number  of 
samples  in  the  experiment  would  have  varied  among  design  points,  causing 
the  design  to  become  unbalanced. 

Initial  Experimentation 

Problem  Analysis.  As  mentioned  earlier,  one  of  the  prime 
objectives  in  this  analysis  was  to  use  AAPMOD  and  evaluate  its 
performance.  This  involved  forming  the  design  matrices  located  in 
Tables  5  and  6  and  the  input  matrices  located  at  Appendix  H. 

The  measures  of  merit  for  the  experiment  were  probability  of 
cutting  runways  and  expected  number  of  craters  (see  page  36).  Based  on 
their  significance,  the  hierarchy  of  AAPMOD  input  variables  was  the  same 
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Factor 


F 


Pr(arrival) 

32 

0.0 

Weapon  type 

102 

0.0 

Delivery  error  std  dev 

3477 

0.0 

Number  of  weapons 

392 

0.0 

Weapon  reliability 

249 

0.0 

Attack  heading 

19 

0.0 

Weapon  spacing 

39 

0.0 

Table  7.  Resolution  IV  Screening  Design  Results 
10  Runs  per  Design  Point 

in  every  case  for  both  measures  of  merit.  For  this  reason,  only 

analysis  based  on  probabilities  of  cut  is  shown  in  Tables  7  through  13. 

The  screening  experiment  was  accomplished  in  two  ways.  In  one 
case,  the  16  design  points  of  the' resolution  IV  design  were  run  10  times 
each,  with  20  AAPMOD  samples  specified  per  run.  In  the  other  case,  the 
same  16  design  points  were  run  3  times  each,  with  200  AAPMOD  samples 
specified  per  run.  For  the  resolution  III  design,  only  the. latter  case 
was  used.  The  object  of  both  approaches  was  to  reduce  the  variance  of 
the  output  by  trading  off  the  number  of  runs  versus  the  length  of  the 
runs. 

Table  7  summarizes  the  results  for  the  resolution  IV  design  using 
10  runs  per  design  point.  Only  the  main  effects  are  shown.  The  F-  and 
p-values  for  each  AAPMOD  input  variable  are  shown.  With  a  level  .of 
significance  of  0.05,  all  main  effects  are  significant.  In  order  for  a 
factor  to  be  insignificant,  its  p-value  must  exceed  the  desired  level  of 
significance. 

Next,  a  total  of  66  runs  was  performed  at  200  iterations  each.  The 
reduction  from  72  indicated  runs  to  the  66  runs  accomplished  was  a 
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result  of  overlapping  treatments  between  the  resolution  III  and 
resolution  IV  designs. 

A  computer  program  for  multivariate  analysis  of  variance  (MANOVA) 
was  used  to  analyze  the  output  of  the  66  runs  comprising  the  experiment. 
Results  of  the  MANOVA' s  are  shown  in  Tables  8  through  13. 

Tables  8  through  10  summarize  results  for  the  resolution  III 
experiment.  Tables  11  through  13  present  the  results  for  the 
resolution  IV  experiment. 

Tables  8  through  13  provide  information  concerning  the  significance 
of  the  analysis  and  the  AAPMOD  input  variables.  The  first  section 
indicates,  a  level  of  significance  for  the  regression  by  means  of  a 
p- value.  Next,  an  R*  figure  shows  to  what  extent  the  input  data  have 
been  explained  by  a  linear  regression  fit*  An  Ra  value  of  1.0  indicates 
that  all  the  data  have  been  explained  by  the  regression.  As  more 
variables  are  added  to  an  experiment,  the  R*  value  would  be  expected  to 
increase  asymptotically  toward  1,0.  Following  this,  Bartlett's  test  for 
homogeneity  of  variance  provides  a  level  of  significance  indicated  by  a 
p-value.  The  last  section  tabulates  regression  coefficients  and 
p-values  for  AAPMOD  input  variables*  The  regression  coefficients  form 
the  linear  equation  relating  input  values  to  a  predicted  probability  of 
cut.  Degrees  of  freedom  are  indicated  by  "d.f."  The  sums  of  squares 
are  squared  deviations  from  the  mean  for  a  particular  variable.  Mean 
squares  are  the  sums  of  squares  divided  by  degrees  of  freedom. 


ANALYSIS  OF  VARIANCE 


Source 

Sum  of  Squares 

d.f. 

Mean  Squares 

l  £. 

Regression 

2.61345 

7 

0.37335 

1152.46  0.0 

Error 

0.00518 

16 

0.00032 

Total 

2,61863 

23 

R1  o  0.9980 


Bartlett's  test  for  homogeneity  of  variance i 
X0a  =  16.4298  d.f.  =7  p  »  0.0215 


SIGNIFICANCE  OF  FACTORS 


Factor  Regression  Coefficient 

Mean  Square 

F 

1 

Mean 

0.4408 

* 

Pr  (arrival) 

0,0183 

0.00307 

24.900 

0.0001 

Weapon  type 

0.1400 

0.47040 

1452.030 

0.0 

Delivery  error 

-0.2508 

1,51002 

4661.110 

0.0 

#  weapons 

0.1033 

0*25627 

791,110 

0,0 

Wpn  reliability 

0,1058 

0.26882 

829,782 

0.0 

Attack  heading 

-0,0642 

0.09882 

305.027 

0,0 

Weapon  spacing 

-0.0067 

0.00107 

3.293 

0.0884 

ANALYSIS  OF  VARIANCE 


Source 

Sum  of  Sauares 

d.f. 

Mean  Squares 

I  £ 

Regression 

1.76335 

7 

0.25191 

345.95  0.0 

Error 

0.01165 

16 

0.00073 

Total 

1,77500 

23 

R*  -  0.9934 


Bartlett's  test  for  homogeneity  of  variance: 
»  13.2419  d.f .  »  7  p  *  0.0664 


S 

IGNIFICANCE 

OF  FACTORS 

Factor  Regression  Coefficient 

Mean  Square 

F 

£ 

Mean 

0.6846 

Pr( arrival) 

0.0258 

0.01602 

21.996 

O.0002 

Weapon  type 

0.1275 

0,39015 

535.808 

0.0 

Delivery  error 

-0.1354 

0,44010 

604.412 

0,0 

#  weapons 

0.1163 

0.32434 

445.425 

0.0 

Wpn  reliability 

0.1567 

0.58907 

808.989 

0.0 

Attack  heading 

-0.0067 

0.00107 

1.465 

0.2437 

Weapon  spacing 

-0,0104 

0.00260 

3.576 

0.0769 

ANALYSIS  OF  VARIANCE 


Source 

Sum  of  Sauares 

Mi 

Mean  Squares 

Regression 

2.80636 

7 

0.40091 

Error 

0.00783 

16 

0.00049 

Total 

2.81419 

23 

RJ  «  0.9972 

Bartlett's  test  for  homogeneity  of  variance: 
X0*  »  13.6394  d.f.  »  7  p  =  0.0580 


l  J> 
818.88  0.0 


SIGNIFICANCE  OF  FACTORS 
Factor  Regression  Coefficient  Mean  Square  F 


Mean 

0.3831 

Pr(arrival) 

-0.0035 

0.00030 

0.615 

0.4444 

Weapon  type 

0.1640 

0.64518 

1317.810 

0.0 

Delivery  error 

-0.2369 

1.34663 

2750.580 

0,0 

#  weapons 

0,1240 

0.36878 

753.247 

0.0 

Wpn  reliability 

0,1206 

0.34921 

713.281 

0.0 

Attack  heading 

-0.0610 

0.08943 

182.658 

0.0000 

Weapon  spacing 

-0.0169 

0.00683 

13.960 

0.0018 

ANALYSIS 

0  F 

VARIANCE 

Source  Sum  of  Squares 

d.f 

.  Mean  Squares  F 

L 

Regression 

4.22925 

15 

0.28195 

417. 

,71  0.0 

Error 

0.02160 

32 

0.00067 

Total 

4.25085 

47 

R1  -  0.9949 

Bartlett's  test  for  homogeneity 

of  variance: 

Xo*  =  23.9723 

d.f.  a  15  P 

=»  0.0656 

SIGNIFICANCE 

OF  FACTORS 

Factor  Renressinn  Coefficient 

Mean  Square 

F 

£ 

Mean 

0.4378 

Pr(arrival)  (A) 

0.0378 

0,06863 

101 .674 

0.0 

Weapon  type  (B) 

0.0449 

0.09675 

143.335 

0,0 

Delivery  error  (C) 

-0.2303 

2,54610 

3772.030 

0,0 

i  weapons  (D) 

0.1351 

0.87615 

1298.010 

0.0 

(AB) 

0,0186 

0,01669 

24.723 

0.0 

(AC) 

-0.0266 

0.03387 

50.174 

0.0000 

(AD) 

-0.0324 

0,05038 

74.630 

0,0 

(BC) 

-0.0041 

0.00079 

1.174 

0.2868 

(BD) 

0,0030 

0.00044 

0.649 

0.4264 

(CD) 

-0.0289 

0,03996 

59.205 

0.0 

Wpn  reliability  (Ej 

1  0,0759 

0.27679 

410,064 

0,0 

(ABD) 

0,0576 

0.15928 

235.965 

0.0 

Weapon  spacing  (G) 

0.0282 

0.03825 

56.668 

0.0 

Attack  heading  (?) 

-0.0209 

0.02104 

31.174 

0.0000 

(ABCD) 

-0.0093 

0.00413 

6.112 

0.0189 

(  )  indicates  factor  code  or  interaction  term 


Table  II.  Runway  1,  2^“**  Design 
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ANALYSIS  OF  VARIANCE 


Source 


Sum  of  Squares  d.f. 


Mean  Squares 


Regression 

Error 


2.60465 

0.02127 


0.17364 

0.00066 


261.28  0.0 


Total 


2.62592 


RJ  =  0.9919 

Bartlett's  test  for  homogeneity  of  variance: 
Xo*  =  19.8483  d.f.  ■  15  p  -  0.1778 


SIGNIFICANCE  OF  FACTORS 
Factor  Regression  Coefficient  Mean  Square  F 


Mean 

0.6858 

Pr(arrival)  (A) 

0.0179 

0.01541 

23.185 

0.0000 

Weapon  type  (B) 

0.0952 

0.43510 

654.701 

0.0 

Delivery  error  (C) 

-0,1056 

0.53552 

805.799 

0.0 

#  weapons  (D) 

0.0742 

0.26403 

397.293 

0.0 

(AB) 

0.0048 

0.00110 

1.658 

0.2071 

(AC) 

-0.0464 

0.10360 

155.891 

0.0 

(AD) 

0.0371 

0.06601 

99.323 

0.0 

(BC) 

0.0017 

0.00013 

0.201 

0.6572 

(BD) 

0.0348 

0.05810 

87.427 

0.0 

(CD) 

0.0485 

0.11310 

170.186 

0.0 

Wpn  reliability  (E) 

0.1358 

0.88563 

1332.620 

0.0 

(ABD) 

0.0044 

0.00092 

1.382 

0.2484 

Weapon  spacing  (G) 

-0.0448 

0.09630 

144.906 

0.0 

Attack  heading  (F) 

0.0375 

0.00068 

1.057 

0.3211 

(ABCD) 

0.0246 

0.02901 

43.6491 

0.0000 

(  )  indicates  factor  code  or  interaction  term 


ANALYSIS  < 

3  F 

VARIANCE 

Source 

Sum  of  Squares 

d.f 

.  Mean  Squares  F 

JD 

Regression 

3.88395 

15 

0.25893 

302.40  0.0 

Error 

0.02740 

32 

0.00086 

Total 

3.91135 

47 

R*  =  0.9930 

Bartlett's  test 

for  homogeneity  of 

variance: 

Xo1  »  27.8880 

d.f.  =15  p  ■ 

0.0223 

S 

I  G  N  I  F  I  C  A  N  C  E 

OF  FACTORS 

Factor  Regression  Coefficient 

Mean  Square 

F 

2 

Mean 

0.3452 

Pr (arrival)  (A) 

0.0519 

0.12917 

150.855 

0.0 

Weapon  type  (B) 

0.0710 

0.24225 

282.924 

0.0 

Delivery  error 

(C)  -0.1946 

1,81741 

2122.530 

0.0 

#  weapons  (D) 

0.1246 

0.74501 

870.088 

0.0 

(AB) 

-0.0181 

0.01577 

18.416 

0.00Q2 

(AC) 

-0.0396 

0.07521 

87.835 

0.0 

(AD) 

0.0125 

0.00750 

8.759 

0.0058 

(BC) 

-0.0288 

0.03968 

46.336 

0.0000 

(BD) 

0.0375 

0.06750 

78.833 

0.0 

(CD) 

-0.0252 

0.03050 

35.623 

0.0000 

Wpn  reliability  (E)  0.1088 

0.56767 

662.982 

0.0 

(ABD) 

0.0429 

0.08841 

103.251 

0.0 

Weapon  spacing  (G)  -0.0090 

0.00385 

4.500 

0.0418 

Attack  heading  (F)  -0,0265 

0.03360 

39.244 

0.0000 

(ABCD) 

0.0206 

0,02042 

23.847 

0.0000 

(  )  indicates  factor  code  or  interaction  term 


Table  13.  Combination,  2^”^  Design 
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The 


Most  of  the  factors  were  significant  throughout  the  analysis. 

R1  value  was  in  excess  of  0.99  in  every  case.  Virtually  all  the 
variation  in  the  results  was  explained  by  the  linear  regression 
equation. 

For  the  resolution  III  analysis  of  runway  #1,  only  weapon  spacing 
was  insignificant  at  a  0.05  level.  Since  the  p~value  was  0,088,  weapon 
spacing  would  have  been  significant  at  a  0.10  level.  The  remaining 
p-values  were  such  that  the  probability  of  arrival  at  the  target, 
weapons  type,  delivery  error,  number  of  weapons,  weapon  reliability,  and 
attack  heading  were  all  significant  at  any  reasonable  level  of 
significance.  For  runway  #2,  the  same  was  true  except  that  attack 
heading  was  insignificant.  This  was  to  be  expected,  since  the  angles 
from  which  the  runway  was  attacked  were  80°  and  110°  relative  to  the 
runway.  This  was  almost  symmetrical  about  the  90°  axis,  so  the  result 
was  reasonable.  For  the  combined  case,  the  only  insignificant  factor 
was  probability  of  reaching  the  target.  This  anomaly  probably  was 
caused  by  the  small  interval  chosen  between  the  high  and  low  values  of 
this  effect  as  well  as  confounding  interaction  terms.  Common  sense 
tells  the  analyst  that  the  probability  of  getting  to  the  target  will 
affect  the  probability  of  cuts.  If  the  true  range  of  probabilities  of 
reaching  the  target  is  small,  then  this  factor  probably  should  be 
discarded  as  insignificant. 

For  the  resolution  IV  design  for  runway  #1,  only  the  BC  and  BD 
interactions  were  insignificant.  This  was  reasonable,  since  the  weapons 
type  should  not  interact  with  the  delivery  error  or  the  number  of 
weapons.  All  other  effects  and  interactions  were  significant  to  at 
least  the  0,05  level.  For  runway  #2,  the  AB,  BC,  and  ABD  interactions 
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and  attack  heading  were  insignificant.  The  probability  of  arrival 
should  not  interact  with  the  weapons  load  (at  least  in  this  model);  the 
weapons  type  and  delivery  error  should  not  interact;  and  the  3-factor 
interaction  involving  probability  of  arrival,  weapons  type,  and  number 
of  weapons  should  not  be  significant.  The  attack  heading  against  runway 
#2  was  significant.  The  high  and  low  values  for  attack  heading  resulted 
in  70°  and  80°  angles  with  respect  to  runway  #2.  The  10°  made  enough  of 
a  difference  to  show  up  with  the  additional  runs  and  less  confounding. 
Finally,  all  main  effects  and  tested  interaction  terms  were  significant 
at  a  level  of  0.05  for  the  combined  probability  of  cut.  This  included 
aliases  which  contained  only  interaction  terms. 

Bartlett’s  statistic  is  significant  at  the  0.05  level  in  several 
cases.  The  variance  across  cells  is  not  completely  homogeneous,  but  the 
balanced  design  should  be  sufficiently  robust  to  handle  this  small 
deviation. 

An  alternate  approach  is  to  inspect  the  regression  coefficients 
themselves.  Since  they  are  scaled  in  a  sense,  the  size  and  sign  of  the 
coefficients  may  give  a  clue  as  to  how  the  system  responds.  The 
coefficients  are  representative  for  the  resolution  IV  experiment  for 
runways  #1  and  #2  combined.  The  probability  of  arrival  has  a  moderate 
positive  influence  on  the  probability  of  cut  (Pcut)»  The  weapon  type 
has  a  slightly  larger  positive  influence.  Delivery  error  has  the 
largest  absolute  value  coefficient  of  any.  Increases  in  delivery  error 
decrease  the  Pcut*  The  number  of  weapons  has  a  relatively  strong 
positive  influence  on  Pcut  as  does  weapon  reliability.  The  latter  is 
due,  in  part,  to  the  wide  range  between  high  and  low  levels*  Weapon 
spacing  has  a  very  weak  and  inconsistent  effect.  The  attack  heading  is 


73 


not  much  stronger  based  on  the  regression  coefficient  alone.  If  the 
regression  coefficients  were  scaled  equally,  the  coefficients  would 
indicate  that  delivery  error,  number  of  weapons,  and  weapons  reliability 
should  be  examined  first.  Attack  heading  and  weapon  spacing  probably 
can  be  discarded.  Probability  of  arrival  and  weapon  type  seem  important 
on  an  intuitive  level  and  have  moderately  high  regression  coefficients. 
This  is  supported  by  analysis  of  the  structural  diagram  depicted  earlier 
in  Figure  2. 

Tables  14  and  15  depict  the  aliases  for  the  screening  experiments. 

* 

Normally,  some  of  the  main  effects  and  most  of  the  interactions  would  be 
insignificant.  Different  combinations  of  insignificant  effects  and 
interactions  would  be  pieced  together  to  break  out  the  confounding  of 
the  aliases.  This  is  not  possible  for  this  analysis,  since  most  main 
effects  and  interactions  were  significant. 

Implications.  The  initial  screening  experiments  achieved  the 
objectives.  Valuable  experience  with  the  new  implementation  of  AAPMOD 
and  insight  into  its  capabilities  were  obtained.  The  random  number 
generators  were  successfully  tested.  Finally,  all  of  the  AAPMOD  input 
variables  chosen  for  analysis  proved  to  be  significant. 

The  completed  initial  screening  experiments  have  laid  the 
foundation  for  further  analysis  using  response  surface  methodology. 
However,  before  applying  the  tools  of  RSM  to  the  airfield  attack 
scenario,  Chapter  VI  provides  an  introduction  to  response  surface 
methodology. 


Generators:  I  =  ABD  =  ACE  =  BCF  -  ABCG 


Aliases  * 


Effect 

ABD 

ACE 

BCF 

ABCG 

BCDE 

ACDF 

DCG 

ABEF 

BEG 

AFG 

A. 

BD 

CE 

BCG 

CDF 

T^.-m 

BEF 

_ 

FG 

B 

AD 

— 

CF 

ACG 

CDE 

— 

— 

AEF 

EG 

— 

C 

— 

AE 

BF 

ABG 

BDE 

ADF 

DG 

— 

— 

— 

D 

AB 

— 

— 

— 

BCE 

ACF 

CG 

— 

— 

— — 

E 

— 

AC 

— 

- - 

BCD 

— — 

— 

ABF 

BG 

— 

F 

— 

— 

BC 

— 

ACD 

— 

ABE 

— 

AG 

G 

— 

— 

— 

ABC 

— 

— 

CD 

— 

BE 

AF 

Aliases  * 

Effect 

DEF  ADEG  BDFG 

CEFG 

ABCDEFG 

A 

— — — 

DEG 

B 

— — 

DFG 

- - 

— _ 

C 

— 

— 

— 

EFG 

— 

D 

EF 

AEG 

BFG 

— 

— 

E 

DF 

ADG 

— 

CFG 

— 

* 

F 

DE 

— 

BDG 

CEG 

— 

G 

— 

ADE 

BDF 

CEF 

— 

#  4-Way  interactions  and  higher  are  not  considered,  denoted  by 


Table  14. 


Generators  and  Aliases 
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Generators:  I  =  ABCE  *  ACDG  =  BCDF 


Aliases  # 


Effect 

ABCE 

ACDG 

BCDF 

BDEG 

ADEF 

ABFG 

CEFG 

A 

BCE 

CDG 

_ 

DEF 

BFG 

B 

ACE 

— 

CDF 

DEG 

AFG 

— 

C 

ABE 

ADG 

BDF 

— 

— — - 

— 

EFG 

D 

- - 

ACG 

BCF 

BEG 

AEF 

— 

— 

E 

ABC 

— — 

— 

BDG 

ADF 

— 

CFG 

F 

— 

- - 

BCD 

- — 

ADE 

ABG 

CEG 

G 

- - 

ACD 

___ 

BDE 

— 

ABF 

CEF 

AB 

CE 

— 

— 

— 

- — 

FG 

- — 

AC 

BE 

DG 

— 

- - 

— 

— — 

- - - 

AD 

BC 

BD 

— 

CG 

DF 

CF 

— 

EF 

— 

- - 

- 

EG 

— „ _ 

CD 

— 

AG 

BF 

— - 

ABD 

CDE 

BCG 

ACF 

AEG 

BEF 

DFG 

- — 

ABCD 

DE 

BG 

AF 

-M— - 

— 

— 

*  4-way  interactions  and  higher  are  not  considered,  denoted  by 


VI.  Response  Surface  Methodology  Overview 


Basic  Definitions 

Response  surface  methodology  (RSM)  is  a  collection  of  mathematical 
and  statistical  tools  for  discovering  optimum  conditions.  This  applies 
to  both  deterministic  and  probabilistic  problems.  This  chapter  will 
concentrate  on  probabilistic  problems. 

Box  and  Wilson  (5)  first  proposed  RSM  in  1951.  It  should  be  noted 
that  the  techniques  involved  existed  long  before  that  date.  RSM 
initially  was  intended  for  finding  optimal  conditions  in  industrial 
settings.  Most  of  the  example  problems  found  during  research  for  this 
chapter  involved  chemical  processes  during  manufacture.  However,  RSM  is 
valid  for  any  circumstance  in  which  dependent  and  independent  variables 
are  quantifiable,  continuous  and  related  by  some  sort  of  "response” 
function.  Extensions  might  be  made  to  discrete  variables  but  the 
optimal  point  may  elude  the  analyst.  This  is  similar  to  the  case  where 
linear  programming  is  applied  to  an  integer  programming  problem.  The 
results  may  be  unpredictable. 

The  response  function  usually  involves  one  dependent  variable  of 
interest  (y)  and  one  or  more  independent  variables  (x’s),  This  takes 
the  following  form: 


y  ■  F(xj»X2»  ***  *  xk^ 

where  k  is  the  number  of  independent  variables. 

The  response  surface  with  two  independent  variables  might  appear  as 
shown  in  Figure  3* 
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Figure  3.  Typical  Response  Surface 


The  function  F  can  take  many  forms  but  is  usually  assumed  to  be  a 
polynomial.  This  is  particularly  handy  since  solutions  can  be  found 
with  relative  ease.  However,  caution  must  be  used  when  extrapolating 
results.  Polynomial  fits  are  only  valid  in  the  immediate  area  of 
experimentation.  RSM  does  extrapolate  outside  the  immediate  area  of 
experimentation  but  validates  this  by  comparing  experimental  responses 
with  predicted  responses. 

The  polynomials  could  be  of  any  order,  but  usually  are  restricted 
to  first-order  for  initial  work  and  second-order  when  approaching  the 
optimal  point  (also  called  "near  stationary"  conditions  since  the 
optimal  point  is  also  a  stationary  point).  The  first-order  polynomial 
takes  the  form: 


y  .  b0  +  bjX!  +  ...  +  bkxk 

where  the  b^  are  regression  coefficients  for  i  ■  0,  1,  ...  ,  k. 


Including  interaction  and  squared  terms,  the  second-order 


polynomial  with  three  independent  variables  appears  as  follows: 


y  =  bn  +  blXl  +  b,x0  +  +  b1lXls  +  b00x,a  +  b 


j 2* 2  *  W3A3 


in 


22  2 


33  3 


+  b12xlX2  +  b13Xlx3  +  b23x2x3 


As  might  be  surmised,  higher-order  polynomials  become  complicated; 
RSM  usually  is  restricted  to  second-order.  In  most  cases,  this  is  a 
good  approximation.  Taylor  series  expansions  provide  the  basis  for 
truncating  the  series  above  the  second-order  terms.  For  RSM,  the 
analyst  should  experiment  in  the  immediate  vicinity  of  the  newly  found 
optimum  point  anyway.  The  more  restricted  the  area,  the  better  is  the 
approximation  of  a  second-order  polynomial  compared  to  reality. 

Second-order  polynomials  can  accommodate  any  number  of  independent 
variables.  However,  various  interaction  terms  greatly  complicate  the 
problem.  This  can  be  alleviated  by  dropping  statistically  insignificant 
variables. 

Several  steps  are  required  in  fitting  the  desired  form  of 
polynomial  to  the  simulation  or  industrial  situation  in  question.  The 
first  step  is  to  identify  an  area  of  interest.  This  could  be  the  status 
quo  or  the  suspected  optimum  mix  of  input  variables  based  on  the 
analyst's  judgement.  Some  knowledge  of  the  actual  system  is  helpful. 
Experiments  or  simulations  are  run  in  the  area  of  interest.  The 
resulting  y-values  (system  responses)  and  the  x-values  (input  variables) 
are  analyzed  by  least-squares  regression  to  find  the  polynomial  fit  of 
the  system  responses. 
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First-Order  Approximation 


If  the  analyst  has  limited  knowledge  of  the  system,  the  suspected 
center  point  of  the  problem  is  assumed  to  be  remote  from  the  actual 
optimum.  A  first-order  polynomial  is  assumed  applicable  in  that  the 
slope  of  a  response  surface  is  likely  to  be  fairly  smooth  until 
approaching  the  optimum  point.  The  polynomial  is  found,  fitting  a  plane 
tangent  to  the  surface  at  the  present  center  point.  A  plane  (or 
hyperplane  if  more  than  2  independent  variables)  is  characteristic  of 
the  first-order  approximation.  The  math  remains  the  same  with 
hyperplanes,  but  conceptualization  becomes  more  difficult. 

The  method  of  ’’steepest  ascent”  is  accepted  as  the  best  approach  to 
the  optimum  point.  The  analysis  moves  in  proportion  to  the  regression 
coefficients  or  "climbs  the  hill"  perpendicular  to  the  contour  lines. 
The  main  question  is  how  far  to  step  between  iterations;  the  analyst 
must  exercise  judgement  to  choose  the  appropriate  step  .  size. 
Backtracking  with  smaller  steps  is  always  an  option. 

Eventually,  the  optimum  point  will  be  approached,  at  which  time  the 
slope  will  level  out.  The  second-order  polynomial  approximation  is 
required  to  find  the  optimum  point  mathematically,  since  the  maximum  on 
a  plane  is  at  infinity  unless  the  plane  is  perfectly  horizontal.  A 
horizontal  plane  probably  would  represent  design  points  which  happened 
to  be  on  the  same  contour.  This  could  be  interpreted  incorrectly  as 
multiple  optima  inside  the  area  of  the  contour,  but  should  lead  the 
analyst  to  further  experimentation.  Second-order  approximations  perform 
the  experimentation  in  an  organized  manner. 

RSM  commonly  u«es  factorial  or  fractional  factorial  designs  for 
first-order  approximations.  To  review,  the  suspected  optimal  point 
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becomes  the  center  point  of  the  factorial  design.  Then  unit  changes  in 
each  variable  are  defined  on  either  side  of  their  center  point  values. 
If  unit  changes  are  not  appropriate  for  the  actual  analysis,  then  the 
changes  can  be  coded.  For  example,  suppose  x^  has  a  value  of  20  at  the 
center  point.  Values  of  5  and  35  might  be  appropriate  for  experimenting 
in  the  area  around  the  center  point.  First,  note  that  the  spacing  needs 
to  be  the  same  on  both  sides  (symmetrical).  The  values  would  be  coded 
as  -1,  0,  and  1  for  5,  20,  and  35  respectively.  The  coding  assumes  an 
appropriate  scale  for  the  variable,  such  as  a  ratio  or  interval  scale. 
The  variable  is  coded  as  follows: 

-  <xx  -  20)  /  15 

The  equation  will  be  handy  if  the  answer  ends  up  being  other  than 
one  of  the  coded  values.  This  is  entirely  possible  when  finding  the 
mathematical  optimum  of  the  second-order  approximation. 

The  center  point  value  should  be  checked  before  proceeding  with  the 
analysis.  The  center  point  is  not  part  of  the  factorial  design  matrix 
for  first-order  analysis.  The  center  point  check  may  reveal  that  the 
surface  is  not  represented  properly  by  a  plane  in  the  region  of 
experimentation.  If  the  regression  equation  accurately  predicts  the 
center  point  response,  increments  up  the  steepest  slope  are  taken  until 
the  errors  between  the  predicted  and  experimental  values  of  system 
response  are  too  large.  When  this  is  the  case,  another  first-order 
experiment  is  performed.  If  the  slopes  start  to  approach  zero  during 
this  sequence,  then  the  second-order  model  is  required. 
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Second-Order  Approximations 


There  are  several  considerations  for  second-order  approximations 
that  are  not  a  problem  with  the  first-order  approximation.  These 
considerations  are  the  number  of  data  points  required  and  the 
orthogonality  of  the  design. 

The  first-order  approximations  require  only  two  levels  for  each 
factor;  these  are  sufficient  to  define  the  required  hyperplane  in 
k-space.  Factorial  designs  do  not  require  excessive  data  points  until 
considering  6  or  7  variables.  Fractional  factorial  designs  usually 
reduce  the  required  number  of  data  points  with  minor  loss  of 
information. 

Second-order  approximations  require  three  levels  of  each  variable 
to  approximate  the  curved  surface  expected.  With  4  factors,  the  full 
factorial  design  requires  3^  ■  81  points  to  estimate  15  coefficients  of 
the  4  main  effects,  4  squared  effects,  6  interaction  terms,  and  the 
overall  mean.  Additional  factors  can  help  explain  system  responses,  but 
geometrically  increase  the  number  of  required  replications.  The  analyst 
must  consider  the  advantages  and  disadvantages  of  added  factors. 
Fractional  designs  reduce  the  number  of  required  replications,  but  not 
enough  to  offset  the  increase  required  by  added  factors. 

Another  consideration  is  the  design  of  the  experiment.  Factorial 
and  fractional  factorial  designs  are  orthogonal;  desirable  features  for 
rotating  the  coordinate  system  and  for  determining  the  increments  and 
direction  for  the  method  of  steepest  ascent.  Orthogonality  and 
efficient  experimentation  can  be  accomplished  by  central  composite 
orthogonal  designs  and  are  recommended  for  analysis  by  numerous  experts 
(8:343-348,  11:534,23:281,40:80,40:84,49:175). 
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Table  16  contains  an  example  of  a  central  composite  orthogonal 
design  matrix  for  3  main  effects,  squared  terms,  and  interaction  terms. 


X1 

aasssss 

x2 

x3 

2 

X1 

a 

x2 

a 

x3 

xlx2 

xlx3 

X2X3 

-1 

-1 

1 

1 

1 

1 

1 

1 

1 

-1 

-1 

1 

1 

1 

-1 

-1 

1 

-1 

1 

-1 

1 

1 

1 

-1 

1 

-1 

1 

1 

-1 

1 

1 

1 

1 

-1 

-1 

-1 

-1 

1 

1 

1 

1 

1 

-1 

-1 

1 

-1 

1 

1 

1 

1 

-1 

1 

-1 

-1 

1 

1 

1 

1 

1 

-1 

-1 

1 

l 

1 

1 

1 

1 

1 

1 

1 

1 

-1 .682 

0 

0 

2.828 

0 

0 

0 

0 

0 

1.682 

0 

0  2.828 

0 

0 

0 

0 

0 

0  - 

•1.682 

0 

0  2. 
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0 

0 

0 

0 
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0  2.828 

0 

0 

0 

0 

0 

0  - 
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0 
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.828 

0 

0 

0 

0 

0 

1.682 

0 

0  2.828 
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0 
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0 

0 

0 

0 

0 

0 

0 

0 
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0 
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0 
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0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Table  16.  3J  Central  Composite  Design  (40:80) 

The  first  three  columns  in  this  matrix  correspond  to  three  main 
effects,  the  next  three  represent  squared  terms,  and  the  last  three  are 
the  interaction  terms.  The  values  in  the  design  matrix  are  coded  as  in 
the  previous  section.  Great  care  is  taken  so  the  coded  values  are  ±1 
where  possible  to  simplify  the  mathematics  of  matrix  operations. 

Normally,  a  column  of  I's  would  precede  this  matrix,  representing 
the  mean.  This  is  supplied  automatically  by  the  computer  code  provided 
at  Appendix  G.  The  first  eight  rows  are  the  same  as  a  2^  factorial 
design.  The  last  six  rows  are  center  points. 
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Only  one  center  point  is  required  in  a  central  composite  design,  but 
added  points  provide  degrees  of  freedom  for  estimating  error.  Degrees 
of  freedom  also  could  be  generated  by  replicating  the  entire  design 
several  times,  but  less  efficiently.  While  most  of  the  design  points 
can  be  simulated  using  the  same  random  number  stream,  this  is  not 
advisable  for  multiple  center  points.  If  the  same  random  number  stream 
is  used  for  the  different  replications  of  the  center  point,  identical 
answers  will  result,  yielding  a  zero  variance  for  the  analysis.  A  zero 
variance  might  be  misleading  for  stochastic  processes. 

The  middle  rows  are  axial  points  which  are  sometimes  referred  to  as 
the  "star.”  These  points  lie  outside  the  regular  polygon  (for  designs 
with  more  than  2  main  effects)  formed  by  the  factorial  design  as 
indicated  in  Figure  4. 
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A  particular  number  which  preserves  the  orthogonality  of  the  design 
is  1.682,  calculated  as  follows  (8:347): 


a(k/4)  (  ss  1<682  for  k  =  3  ) 


where  k  is  the  number  of  main  effects  in  the  central  composite  design. 
For  a  half-fraction  central  composite  design,  replace  the  "k"  with 


As  can  be  seen  from  Figure  4,  che  axial  points  expand  the  area  of 

experimentation  to  provide  greater  accuracy  for  the  second-order 

approximation.  This  is  accomplished  along  the  primary  axes  only, 

instead  of  all  combinations  as  in  the  factorial  design.  This  reduces 

k  k 

the  required  number  of  points  from  3  to  2  +  2k  +  center  points.  This 
can  be  a  very  substantial  savings.  For  the  example  above,  this  reduces 
the  required  runs  from  81  to  20,  with  the  added  benefit  of  estimation  of 
experimental  error. 

In  Table  16,  2.828  is  calculated  by  squaring  1.682. 

The  last  point  to  discuss  is  how  coded  variables  may  be  decoded. 
The  following  equation  shows  how  1,682  is  decoded  to  a  real-life  value. 
All  of  the  entries  in  a  column  are  decoded  with  the  same  equation.  For 
the  previous  example,  the  real-life  values  of  the  experiment  are: 

x,  »  20  +  15x, '  (  -  45.23,  -5.23  for  x  ’  »  ±1.682  ) 

1  (  »  35.00,  5.00  for  xj’  -  ±1  ) 

With  this  design,  the  analyst  performs  experimentation  or 
simulations  to  gather  the  y-values  (dependent  variables).  This  is  done 
by  decoding  the  x-values  and  performing  the  experiments,  one  for  each 
row  of  the  design  matrix.  For  the  design  presented  in  Table  16, 
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coefficients.  The  analysis  in  the  next  chapter  demonstrates  the  use  of 
such  a  program. 


The  next  step  is  to  solve  the  second-order  polynomial  for  an 
optimum  system  response.  The  optimum  response  is  represented  as  a  set 
of  x-coordinates.  The  y-value  is  calculated  based  on  the  x-coordinates. 
The  origin  of  the  coordinate  system  is  translated  to  this  optimum  set  of 
x-coordinates  and  rotated  to  align  with  the  contours  of  the  response 
surface.  Similar  to  the  method  of  steepest  ascent,  further 
experimentation  should  be  performed  in  the  immediate  vicinity  of  the 
stationary  point  to  validate  the  surface  fit. 


Current  literature  suggests  that  second-order  approximations 
suffice  for  virtually  all  realistic  problems.  However,  in  rare 
instances,  the  need  might  arise  for  third-order  approximation 
techniques.  The  concepts  are  exactly  the  same  as  for  second  order. 
Many  more  observations  will  be  required  with  many  more  regression 
coefficients.  After  completing  the  numerous  observations  required  for 
third-  and  higher-order  curve  fits,  the  resulting  regression  equations 
are  difficult  to  relate  to  the  real-world  problem.  For  example,  the 
third-order  polynomial  with  three  independent  variables  and  full 
interactions  is  as  follows: 


111*1  n  222  2  T  333  3  T  12^1  “2 
122xlx2  +  b113xl  x3  +  bl33xlx3 *  +  b223x2*x3 

+  b233x2x3*  *  b123xlx2X3 


Search  for  Optimal  Point 

The  search  for  the  optimum  of  a  response  function  can  have  several 
results.  Figure  5  summarizes  the  possibilities  for  two  independent 
variables.  The  easiest  case  to  interpret  is  the  hill  (or  depression  for 
minimization  problems).  However,  a  saddle  point  is  possible.  This 
implies  two  areas  of  optimal  conditions.  An  example  might  be  runway 
attacks  where  reciprocal  attack  headings  could  be  expected  to  yield 
alternate  optima.  The  saddle  can  be  detected  in  the  following  manner. 
After  rotation  of  the  coordinate  system,  some  of  the  slopes  will  be 
negative  and  some  positive. 

Other  possibilities  include  ridges  and  slowly  rising  ridges.  These 
provide  the  reason  for  preferring  the  method  of  steepest  ascent  for 
first-order  analysis.  Steepest  ascent  will  climb  directly  up  the  ridge 
while  the  alternate  technique  —  sectioning  —  deals  with  only  one 
variable  at  a  time*  Sectioning  will  find  the  ridge,  but  may  cross  it  at 
an  angle.  The  "optimum"  point  thus  identified  may  not  be  the  true 
optimum,  which  would  be  found  higher  along  the  ridge  line.  In  the  case 
of  a  non-rising  ridge,  there  are  many  optima,  but  sectioning  only  finds 
one  of  the  multi-optimal  solutions. 

RSM  Literature 

This  chapter  is  not  intended  to  offer  rigorous  explanations  of 
response  surface  methodology.  Existing  literature  covers  the  field  of 
RSM  quite  well.  For  quick  overviews  of  response  surface  methodology. 


the  Interested  reader  should  check  Montgomery  (38),  Shannon  (49),  and 
Kicks  (23).  The  innovator  in  the  field  of  RSM  was  Box  (S);  his 
discussions  are  mathematically  rigorous.  For  an  excellent  introduction 


Figure  5.  Typical  Response  Contours 


to  RSM,  Davies  (11)  offers  a  comprehensive  treatment,  although  the 
British  nomenclature  may  be  hard  to  follow.  The  most  sophisticated  work 
is  by  Cochran  and  Cox  (8).  Other  references  cover  the  same  material  in 
more  readable  format.  Myers'  book  —  the  only  one  specifically  devoted 
to  RSM  —  does  a  superior  job  of  discussing  the  subject  (AO). 

Shannon  recommends  Schmidt  and  Taylor  (48)  for  a  discussion  of 
sectioning,  though  steepest  ascent  is  preferred  by  most  authors. 
Shannon  also  recommends  Mirham  (37)  for  application  of  RSM  in 
simulation.  Finally,  Shannon  cited  Hill  and  Hunter's  literature  review, 
published  in  1966  (24), 

Application  of  RSM  to  Airfield  Attack 

Airfield  attack  analysis  may  be  performed  with  the  tools  of 
response  surface  methodology.  In  order  to  use  RSM,  quantifiable  and 
continuous  variables  are  required.  Many  airfield  attack  parameters  meet 
these. criteria,  RSM  can  transform  a  very  complex,  stochastic  problem  to 
a  deterministic  regression  equation:  a  primary  objective  for  this 
analysis. 

The  background  material  presented  in  this  chapter  outlines  the 
basic  framework  for  the  latter  portions  of  the  airfield  attack  analysis. 
The  next  chapter  documents  the  RSM  applied  to  this  analysis. 
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VII.  Response  Surface  Experimentation 

Variables  for  Analysis 

Central  composite  designs  suitable  for  response  surface  methodology 
require  increasing  numbers  of  design  points  as  factors  are  added. 
Cochran  and  Cox  (8)  recommend  full  designs  with  20  design  points  for  3 
variables  and  31  points  for  4  variables.  For  more  factors,  half- 
fraction  central  composite  designs  are  recommended.  For  5  variables,  32 
design  points  are  required,  and  for  6  variables,  53  design  points  are 
needed.  Each  design  point  requires  at  least  one  run  of  200  iterations 
during  each  analysis.  Therefore,  the  number  of  input  variables 
considered  should  be  limited  to  the  smallest  practical  value. 

As  indicated  in  Chapter  V,  seven  potential  airfield  attack  input 
parameters  proved  to  be  significant  in  affecting  system  responses.  The 
responses  considered  were  probability  of  runway  cut  and  expected  number 
of  craterq  to  fill  to  open  a  minimum  clear  TOL  strip,  Cochran  and  Cox 
(8)  do  not  present  a  design  for  seven  variables  due  to  the  excessive 
number  of  runs  required  by  such  a  design.  Due  to  limited  computer 
resources  and  the  envisioned  use  of  AAPMOD  on  microcomputers,  a  smaller 
design  was  appropriate.  The  4~variable  full  central  composite  design 
recommended  by  Cochran  and  Cox  was  adopted. 

In  order  to  fully  explore  system  responses  of  the  airfield  attack 
scenario  outlined  in  Chapter  IV,  groups  of  four  variables  were  chosen. 
The  initial  analysis  considers  the  most  significant  variables  as 
indicated  by  the  MANQVa  conducted  in  Chapter  V.  This  is  followed  by  a 
parallel  analysis  which  considers  variables  which  aircrews  can  control. 
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This  parallel  analysis  permits  comparison  of  results  between  highly 
significant  variables  and  controlled  variables. 


The  most  significant  variables  were:  delivery  error,  weapon  type, 
number  of  weapons,  and  weapon  reliability.  None  of  these  are  directly 
controlled  by  the  aircrew.  These  variables  were  analyzed  in  one  of  the 
two  4-factor  designs. 

Weapon  spacing  and  attack  heading  are  among  the  least  significant 
of  the  main  effects  chosen  for  the  screening  design.  They  are  also  the 
two  which  the  aircrew  can  completely  control.  Weapon  spacing  and  attack 
heading  are  significant  to  a  high  statistical  level,  but  less 
significant  than  the  variables  highlighted  in  the  preceding  paragraph. 
Throughout  the  screening  experiment,  probability  of  arrival  was  the 
least  significant  of  the  input  parameters.  Consequently,  the  other 
4-factor  design  used  the  following  variables:  delivery  error,  weapon 
reliability,  attack  heading,  and  weapon  spacing. 

In  both  designs,  variables  not  considered  were  fixed  at  nominal 
levels.  For  a  particular  analysis,  summary  tables  show  the  values  of 
fixed  variables.  In  this  case,  the  high  and  low  values  are  the  some. 


First-Order  Approximation 


As  indicated  in  Chapter  VI,  initial  application  of  response  surface 
methodology  assumes  linear  conditions,  implicitly  assuming  that  the 
center  point  of  the  analysis  is  somewhat  removed  from  the  optimum  and 
the  hyperplane  describing  the  response  surface  is  flat. 

A  fractional  factorial  design  was  run  consistent  with  Chapter  VI  of 
this  report.  Tables  18,  19  and  20  summarize  the  values  of  the  input 
variables,  the  design  matrix,  and  the  results.  The  design  matrix  in 


Factor 

Code  Letter 

High  Value  (+) 

Low  Value 

Pr(arrival) 

A 

0.955 

0.955 

Weapon  type 

B 

Mk-84 

Mk-82 

Delivery  error  std 

dev  C 

300/150 

100/50 

Number  of  weapons 

D 

12 

6 

Weapon  reliability 

E 

0.99 

0.59 

Attack  heading 

F 

155° 

155° 

Weapon  spacing 

G 

75  ft 

75  ft 

Table  18.  First-Order  RSM  Variable  Values 


Table  19*  First-Order  RSM  Design  Matrix 

Table  19  is  depicted  with  ‘V  indicating  the  high  value  of  a  particular 
variable;  H-H  denotes  the  low  value.  Probabilities  of  cut  and  expected 
number  of  craters  to  fill  are  summarized  in  Table  20  for  individual 
runways  and  both  runways  combined.  Regression  coefficients  for  the 
different  dependent  variables  were  calculated  with  the  computer  program 
at  Appendix  G.  The  regression  coefficients  are  shown  in  Table  21. 

For  the  other  portion  of  the  first-order  RSM  analysis,  weapon  type 
and  number  were  fixed.  Thero  are  numerous  possible  combinations  of  type 
and  number  of  weapons.  For  the  analysis,  6  Mk-84's  and  12  Mk-82's  were 


Design  Point 

Probability  of  Cut 
.R/W  1  R/W  2  Combined 

Expected  Craters  to  Fill 
R/W  1  R/W  2  Combined 

1 

0.340 

0.550 

0.215 

0.355 

0.620 

2 

0.100 

0.465 

0.065 

0.021 

0.035 

3 

0.980 

0.910 

0.895 

2.550 

1.415 

1.310 

4 

0.905 

0.865 

0.780 

1.685 

.  1.290 

0.950 

5 

0.875 

0.990 

0.805 

1.925 

2.225 

1.500 

6 

0.775 

0.445 

0.135 

0.305 

0.525 

0.140 

7 

0.195 

0.530 

0.085 

0.250 

0.635 

0.090 

8 

0.740 

0.950 

0.700 

1.600 

2.010 

1.175 

Table  20.  First-Order  RSM  Dependent  Variable  Values 


Factor 

Probability  of  Cut 

R/W  1  R/W  2  Combined 

Expected  Craters  to  Fill 
R/W  1  R/W  2  Combined 

Mean  response 

0,551 

0,713 

0,468 

1.086 

1.094 

0,677 

Weapon  type 

0,104 

0.104 

0.135 

0.221 

0.296 

0.236 

Delivery  error  -0,224 

-0,116 

-0.221 

-0.542 

-0.293 

-0.319 

#  weapons 

0.174 

0.079 

0.160 

0.449 

0.216 

0.219 

Reliability 

0.146 

0.132 

0.169 

0.495 

0.477 

0.344 

Table  21.  First-Order  RSM  Regression  Coefficients 


chosen  as  combinations  of  interest,  because  these  loads  can  be  carried 
by  selected  tactical  aircraft  (See  Chapter  V,  page  57).  The  goal  was  to 
contrast  results  for  a  lesser  number  of  heavy  bombs  with  a  greater 
number  of  lighter  bombs.  Separate  analyses  were  per formed  with  weapon 
type  and  number  fixed  at  6  Nk-84*s,  and  then  at  12  Mk“S2*s.  The  analyses 
fit  the  following  variables:  delivery  error,  weapon  reliability,  weapon 
spacing,  and  attack  heading.  Table  22  summarizes  high  and  low  values 
for  the  last  four  variables.  Table  23  depicts  the  design  matrix  with 
updated  factor  identifiers.  Tables  24-27  summarize  the  results  for 


Factor 

Code  Letter 

High  Value  (+) 

Low  Value  (-) 

Pr(arrival) 

A 

0.950 

0.950 

Weapon  type 

B 

Mk-84  —  or 

-  Mk-82 

Delivery  error  std 

dev  C 

300/150 

100/50 

Number  of  weapons 

D 

12  —  or 

6 

Weapon  reliability 

E 

0.99 

0.59 

Attack  heading  . 

F 

170° 

140° 

Weapon  spacing 

. 

G 

100  ft 

50  ft 

Table  22,  First-Order  RSM  Variable  Values 


Design  Point 

C 

I 

F 

G 

1 

2 

+ 

+ 

3 

- 

- 

4- 

4- 

4 

+ 

- 

4- 

5 

+ 

- 

<■* 

6 

»•* 

+ 

«M 

7 

- 

4* 

•f 

8 

■  + 

+ 

4>  ’ 

4* 

Table  23.  First-Order  RSM  Design  Matrix 


6  Mk-84's  and  12  Mk-82’s,  Tables  24  and  25  summarisse  Mk~82  results. 
Tables  26  and  27  suataariae ;Nk-84  results  using  the  same  table  layout  as 
Tables  24  and  25*  Doth  sets  oi  tables  are  analogous  to  Tables  20  anil 
21*  discussed  earlier  in  the  chapter. 

Close  inspection  of  Tables  .26  and  26  revealed  that  the  probability 
and  expected  number  'of  craters  were  greater  for  the  Mk~82*s, 
Intuitively,  Mk-44'a  with  weapon  spacing  set  at  the  same  level  as 
Mk-02*s  should  luive  produced  the  larger  system  responses*  line  most 
like’y  explanation  is  the  Interacting  effect  of  delivery  error  and  stick 
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Probability  of  Cut  Expected  Craters  to  Fill 

Design  Point  R/W  1  R/W  2  Combined  R/W  1  R/W  2  Combined 


1 

0.520 

0.615 

0.335 

0.585 

0.720 

0.340 

2 

0.360 

0.665 

0.240 

0.445 

0.950 

0.260 

3 

0.710 

0.270 

0.210 

1.145 

0.275 

0.210 

4 

0.075 

0.450 

0.035 

0.080 

0.530 

0.035 

5 

0.045 

0.160 

0.045 

0.160 

0.005 

6 

0.640 

0.940 

0.605 

1.375 

1.805 

0.895 

7 

0.520 

0.630 

0.330 

0.520 

0.665 

0.330 

8 

0.335 

0.565 

0.590 

0.615 

0.205 

Table  24.  First-Order  RSM  Dependent  Variable  Values  (Mk-82) 


Probability  of  Cut  Expected  Craters  to  Fill 

Factor  R/W  1  R/W  2  Combined  R/W  1  R/W  2  Combined 


Mean  response 

0.401 

0.537 

0.244 

0.598 

0.715 

0.285 

Delivery  error 

-0.197 

-0.077 

-0.126 

—0.308 

-0.151 

-0.159 

Reliability 

0.063 

0.163 

0.098 

0.134 

0,294 

0.138 

Attack  heading 

0.039 

0.019 

0.016 

0,199 

0.091 

0.051 

Weapon  Spacing 

0.002 

-0.131 

-0,060 

-0.023 

-0.286 

-0.098 

Table  25,  First-Order  R^l  Regression  Coefficients  (Mk-82) 


Probability  of  Cut 

Design  Point  R/W  1  R/W  2  Combined 

Expected  Craters  to  Fill 
R/W  1  R/W  2  Combined 

l 

0.360 

0.645 

0.220 

0.380 

0.885 

0.225 

2 

0.180 

0.455 

0.075 

0.205 

0,660 

0.075 

3 

0,385 

0.380 

0.150 

0.445 

0.400 

0.150 

k 

0.040 

0.265 

0.015 

0.040 

0.320 

0.015 

5 

0*050 

0.225 

0.020 

0.055 

0.225 

0.020 

6 

0.555 

0.905 

0.500 

0.905 

1.820 

0.695 

7 

0.795 

0.705 

0.545 

0.995 

0.835 

0.565 

8 

0.195 

0.545 

0.090 

0.235 

0.645 

0.095 

Table  26.  First-Order  RSM  Dependent  Variable  Values  (Mk-84) 


Probability  of  Cut  Expected  Craters  to  Fill 

Factor  R/W  1  R/W  2  Combined  R/W  1  R/W  2  Combined 


Mean  response 

0.320 

0.516 

0.202 

0.408 

0 

.724 

0. 

,230 

Delivery  error 

-0.204 

-0.143 

-0.152 

-0.274 

-0 

.261 

-0. 

,179 

Reliability 

0.111 

0.137 

0.101 

0.178 

0 

.266 

0. 

,128 

Attack  heading 

-0.026 

0.008 

-0.013 

-0,001 

0 

.073 

0, 

,009 

Weapon  spacing 

0.036 

-0.052 

-0.001 

0.025 

-0 

.198 

-0. 

,023 

Table  27.  First-Order  RSM  Regression  Coefficients  (Mk-84) 


length.  Mk-84  sticks  miss  enough  of  the  runway  enough  of  the  time  to 
yield  lower  overall  system  responses. 

The  method  of  steepest  ascent  was  applied  to  the  Mk-82  experiment. 
Table  28  shows  the  calculations  required  to  determine  the  steepest 
ascent  direction  and  the  number  of  steps  possible  before  reaching  the 
bounds  of  the  system.  The  limiting  factor  for  both  'Mk-82’ s  and  Mk-84 ’s 
was  weapon  reliability.  Further  steps  would  have  exceeded  a  weapon 
reliability  of  1.00  which  is  physically  impossible. 

Only  Mk-82  results  are  depicted  in  Table  28.  The  first  row 
contains  the  regression  coefficients  output  from  the  computer  program 

i  • 

given  at  Appendix  G.  The  second  row  shows  the  step  size  indicated  in 
Table  22,  The  next  row  contains  the  product  of  the  first  two  rows  for 
each  variable.  In  this  way,  proportionality  is  maintained  among  the 
variables.  Next,  the  variables  are  scaled  so  that  delivery  error  will 
hove  an  incremental  step  size  of  25  feet.  This  is  done  by  dividing  each 
element  of  row  3  by  a  value  of  4,0.  The  next  row  contains  the  original 
values  of  the  uncoded  variables.  The  increment  rows  are  calculated  by 
adding  row  4  to  the  initial  row  successive  times  for  each  increment;. 
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Regression  coefficient 
Step  size 

Proportional  step 

Change  for  AC  =  25 

In  coded  units 

C  E 

-0.126  0.098 
100  ft  0.200 
-12.63  0.020 

-25  0.039 

-0.125  0.193 

F 

0.016 

15° 

0.245 

0.484 

0.032 

G 

-0.060 
25  ft 
-1.5 
-2.97 
-0.119 

y  y actual 

Initial  value 

200/100  0.79 

155° 

75  ft 

0.244  0.360 

Increment  1 

175/87.5  0.83 

155.5 

72.03 

0.286 

2 

150/75  0.87 

156.0 

69.06 

0.328 

3 

125/62.5  0.91 

156.5 

66.09 

0.370 

4 

100/50  0.94 

156.9 

63.12 

0.412 

5 

75/73.5  0.98 

157.4 

60.16 

0.454 

Table  28.  Steepest  Ascent  Increments 


fl 


The  increase  in  the  response  for  each  increment  is  found  by  substituting 
the  coded  increments  from  row  5  into  the  regression  equation  while 
ignoring  the  mean. 

The  method  of  steepest  ascent  proceeds  with  the  assumption  of 
linearity  until  the  difference  between  the  predicted  y-value  and  the 
experimental  value  is  greater  than  the  error  tolerance  chosen  by  the 
analyst.  When  the  center  point  was  checked,  there  was  a  48  percent 
error  between  the  predicted  value  of  0.244  and  the  actual  value  of  0,36. 
Therefore,  the  first  order  design  did  not  represent  the  system  responses 
within  the  area  of  experimentation. 

There  was  a  choice  between  limiting  the  scope  of  a  first-order 
search  or  proceeding  directly  to  the  second-order  approximation.  The 
scope  of  the  independent  variables  could  have  been  reduced  drastically. 
If  a  small  enough  area  is  considered,  the  linear  assumption  becomes  more 
accurate.  This  was  undesirable  in  this  analysis:  the  original  ranges 
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for  the  input  variables  were  picked  because  they  were  of  interest. 
Narrowing  the  scope  of  these  variables  would  have  been  counter  to  the 
purpose  of  the  analysis. 

Second-Order  Approximation 

Since  the  first-order  approximation  inadequately  fit  the  system 
responses,  the  second-order  approximation  was  adopted.  Table  29 
summarizes  the  independent  variables  for  the  second-order  analysis. 
Separate  analyses  were  run  for  6  Mk-84’s  and  12  Mk-82's.  Table  30  shows 
the  design  matrix  for  the  second-order  analysis  with  four  independent 
variables.  Table  31  summarizes  the  results  of  the  runs  indicated  by  the 
design  matrix  in  Table  30. 

Both  regression  and  lack  of  fit  were  significant  at  any  confidence 
level  chosen.  The  analysis  of  variance  is  shown  in  Table  32. 
The  statistical  significance  of  lack  of  fit  indicates  that  the  range  of 
input  parameters  had  to  be  reduced.  This  was  accomplished  in  the 
follow-on  second-order  RSM  experiment.  The  stationary  point  appears  to 
be  a  local  minimum.  The  smaller  area  of  consideration  in  the  follow-on 
experiment  led  to  identifying  a  possible  local  maximum. 

The  stationary  point  is  indicated  in  Table  33.  Note  that  the 
independent  variable  values  are  within  the  ranges  used  in  the 
experiment,  but  that  a  local  minimum  may  have  been  found.  The  status  of 
the  indicated  stationary  point  is  unknown  pending  further  testing. 
Since  surrounding  design  points  resulted  in  larger  system  responses,  a 
local  minimum  seems  to  be  indicated. 
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Design  Point 

C 

E 

F 

G 

c4 

E4 

F4 

G4 

CE 

CF 

CG 

EF 

EG 

FG 

1 

-1 

-1 

-1 

-1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

-1 

-1 

-1 

1 

1 

1 

1 

-1 

-1 

-1 

1 

1 

1 

3 

-1 

1 

-1 

-1 

1 

1 

1 

1 

-1 

1 

1 

-1 

-1 

1 

4 

1 

1 

-1 

-1 

1 

X 

1 

1 

1 

-1 

-1 

-1 

-1 

1 

5 

-1 

-1 

1 

-1 

1 

1 

1 

1 

1 

-1 

1 

-1 

1 

-1 

6 

1 

-1 

1 

-1 

1 

1 

1 

1 

-1 

1 

-1 

-1 

1 

-1 

7 

-1 

1 

1 

-1 

1 

1 

1 

1 

-1 

-1 

1 

1 

-1 

-1 

3 

1 

1 

1 

-1 

1 

1 

1 

1 

1 

1 

—1 

1 

-1 

-1 

9 

-1 

-.1 

-1 

1 

1 

1 

1 

1 

1 

1 

-1 

1 

-1 

-1 

10 

1 

-1 

-1 

1 

1 

1 

1 

1 

-1 

-1 

1 

1 

-1 

-1 

11 

-1 

1 

-1 

1 

1 

1 

1 

1 

'1 

1 

-1 

-1 

1 

-1 

12 

1 

1 

-1 

1 

1 

1 

1 

1 

1 

-1 

1 

-1 

1 

-1 

13 

-1 

-1 

1 

1 

1 

1 

1 

1 

1 

* 

-1 

-1 

-1 

1 

14 

1 

-1 

1 

1 

1 

1 

1 

1 

-1 

1 

1 

-1 

-1 

1 

15 

-1 

1 

1 

1 

1 

1 

1 

1 

-1 

-1 

-1 

1 

1 

1 

16 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

17 

-2 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

0 

18 

2 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

0 

19 

0 

-2 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

20 

0 

2 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

21 

0 

0 

-2 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

22 

0 

0 

2 

0 

0 

O' 

4 

0 

0 

0 

0 

0 

0 

0 

23 

0 

0 

0 

-2 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

24 

0 

0 

0 

2 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

25 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

26 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

27 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

28 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

29 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

30 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

31 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4  (■ 


agar 


Design  Point  Pcut 

Design  Point 

P  * 
cut 

1 

'  0.345 

16 

0.095 

Z. 

0.020 

17 

0.185 

3 

0.535 

18 

0.010 

4 

0.065 

19 

0.020 

5 

0.405 

20 

0.275 

6 

0.025 

21 

0.080 

7 

0.520 

22 

0.025 

8 

0.040 

23 

0.040 

9 

0.040 

24 

0.075 

10 

0.010 

25 

0.110 

11 

0.225 

26 

0.110 

12 

0.025 

27 

0.125 

13 

0.265 

28 

0.128 

14 

0.015 

29 

0.127 

15 

0.580 

30 

0.123 

31 

0.126 

Table  31. 

Combined  Probability  of  Runway  Cut  for  Initial 
Second-Order  RSM  Design 

A  N 

A  L  Y  S  I 

S  OF 

VARIANCE 

Source 

SS 

d.f. 

MS  F 

P 

Regression 

0.6107 

14 

0.0436  3.54 

0.0088 

Lack  of  fit 

0.1953 

10 

0.0195  64.34 

0.0 

Error 

0,0018 

6 

0.0003 

Total 

0.8078 

30 

Table  32.  ANOVA  for  Goodness  of  Fit  for  Initial  Second-Order  RSM 


Effect 

Coded  Value 

Actual  Value 

Delivery  error  std  dev 

1.7880 

568.2/284.1 

Weapon  reliability 

0.1137 

0.80 

Attack  heading 

-1.3672 

104.20 

Weapon  spacing 

0.9600 

79.20 

Probability  of  cut 

-0.0067 

-0.0067 

Table  33.  Stationary  Point  Analysis  for  Initial  Second-Order  RSM 


The  Mk-82  regression  equation  developed  in  the  initial  second-order 
analysis  for  the  probability  of  cut  for  the  combination  of  runways  was: 

y  •=  0.126  -  0.124  C  +  0.061  E  +  0.024  F  -  0,026  G 

+  0.012  Ca  +  0.024  E1  +  0.0003  F*  +  0.002  G1 
-  0.041  CE  -  0.036  CF  +  0.043  CG  +  0.006  EF 

+  0.014  EG  +  0.039  FG 


where  C,  E,  F,  and  G  are  coded  values  for  the  main  effects,  and 

y  ■  predicted  probability  of  cut 
C  *»  delivery  error  standard  deviation 
E  «  weapon  reliability 
F  a  attack  heading 
G  *  weapon  spacing 

The  response  surface  represented  by  the  equation  has  a  stationary 
point  as  identified  in  Table  33.  Since  this  stationary  point  appeared 
to  be  a  local  minimum,  further  experimentation  was  required.  The  next 
section  describes  the  follow-on  second-order  experiment. 


oond-Order  Approximation  of  Reduced  Surface 


A  visual  inspection  of  system  responses  was  the  most  direct  method 
of  narrowing  the  urea  for  consideration.  The  design  points  were 


inspected  to  see  where  relative  maxima  occurred.  This  inspection  was 
the  basis  for  the  updated  ranges  of  variables  found  in  Table  34. 

The  smaller  scope  of  the  independent  variables  increased  the 
likelihood  of  a  good  second-order  surface  fit  in  the  region  of  interest. 
The  further  experimentation  proved  more  successful.  The  stationary 
point  for  Hk-82’s  appeared  to  be  a  local  maximum,  but  the  stationary 
point  for  Mk-84’s  appeared  to  be  a  local  minimum.  Both  optima  were 
infeasible,  with  their  respective  response  surfaces  extending  beyond  the 
feasible  region  of  the  airfield  attack  problem.  The  surface  fit  was 
statistically  significant  and  valid.  The  analyst  must  supply  the 
boundary  conditions  which  limit  the  response  surface  to  a  feasible 
region.  Restriction  of  the  response  surface  to  a  feasible  region  will 
be  addressed  in  Chapter  VIII. 

The  experiment  design  matrix  remains  exactly  the  same  as  before. 
The  probabilities  of  cut  for  combined  runways  are  the  results  of  the 
experimental  runs  shown  in  Table  35, 

The  system  responses  from  Table  35  indicated  the  center  point  was 
closer  to  the  optimal  point  than  the  initial  second-order  estimate.  The 
center  point  replications  appeared  to  have  a  larger  variance  than 
before,  which  drove  the  p-values  for  lack  of  fit  to  larger  values. 
Regression  results  for  data  in  Table  35  are  summarized  in  Table  36. 

The  p-value  of  0.0265  indicates  that  lack  of  fit  is  still 
significant  at  a  level  of  0.05,  Some  variations  in  system  response  are 
not  explained  by  the  regression  equation  implied  by  Table  36.  The 
conclusions  drawn  from  the  analysis  must  be  verified  by  experimentation. 
The  stationary  point  is  indicated  in  Table  37. 
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Effect 

^2 

0 

+1 

±2 

Delivery  error  std  dev 

0/0 

75/37.5 

150/75  225/112,5  300/150 

Weapon  reliability 

0.79 

0.84 

0.89 

0.94 

0.99 

Attack  heading 

135.0 

146.3 

157.5 

168.7 

180.0 

Weapon  spacing 

60 

70 

80 

90 

100 

Table  34.  Follow-on  Second-Order  RSM  Variable  Coding 


Design  Point 

P 

cut 

Design  Point 

P 

cut 

Design  Point 

p 

cut 

1 

0.430 

11 

0.355 

21 

0.330 

2 

0.335 

12 

0.320 

22 

0.165 

3 

0.600 

13 

0.510 

23 

0.645 

4 

0.375 

14 

0.210 

24 

0.405 

5 

0.630 

15 

0.590 

25 

0.580 

6 

0.270 

16 

0.340 

26 

0.500 

7 

0.700 

17 

0.435 

27 

0.550 

8 

0.270 

18 

0.290 

28 

0.495 

9 

0.255 

19 

0.445 

29 

0.490 

10 

0.190 

20 

0.630 

30 

0.570 

31 

0.520 

Table  35.  Combined  Probability  of  Runway  Cut  for  Follow-on 
Second-Order  RSM  Design 


A 

NALYSIS  OF 

VARIANCE 

Source 

SS 

d.f . 

MS  F  p 

Regression 

0.5812 

14 

0.0415  8.08  0.00008 

Lack  of  fit 

0.0739 

10 

0.0074  5.33  0.0265 

Error 

0.0083 

6 

0.0014 

Total 

0.6634 

30 

Table  36.  ANOVA  for  Goodness  of  Fit  for  Follow-on  Second-Order  RSM 

(Mk-82) 
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The  Mk-82  regression  equation  in  the  follow-on  second-order 
analysis  for  the  probability  of  cut  for  the  combination  of  runways  was: 

y  =  0.529  -  0.085  C  +  0.045  E  +  0.014  F  -  0.055  G 

-  0.045  Ca  -  0.001  Ea  -  0.074  Fa  -  0.004  Ga 

-  0.008  CE  -  0.058  CF  +  0.029  CG  -  0.010  EF 

+  0.010  EG  +  0.025  FG 

where  C,  E,  F,  and  G  are  coded  values  for  the  main  effects,  and 

y  «*  predicted  probability  of  cut 
C  »  delivery  error  standard  deviation 
E  *  weapon  reliability 
F  *  attack  heading 
G  =  weapon  spacing 


Effect 

Coded  Value 

Actual  Value 

Delivery  error  std  dev 

-3.2096 

-90.72/-45.36 

Weapon  reliability 

11.3414 

1.46 

Attack  heading 

-0.1812 

155.46 

Weapon  spacing 

-4.4635 

35.34 

Probability  of  cut 

1 .0454 

1.0454 

Table  37.  Stationary  Point  Analysis  for  Follow-on  Second-Order  RSM 

(Mk-82) 


Once  again  the  stationary  point  lies  in  an  infeasible  region,  since 
negative  delivery  errors  and  probabilities  in  excess  of  1*0  are 
infeasible.  The  analyst  must  apply  the  boundary  conditions  which  will 
keep  the  experiment  in  a  feasible  region  of  the  system  responses.  (See 
Chapter  VIII.) 

The  analysis  of  variance  and  stationary  point  results  for  Kk-84's 
are  shown  in  Tables  38  and  39.  For  the  first  time,  lack  of  fit  was 


ANALYSIS  OF  VARIANCE 


Source 


ss 

d.f. 

ii 

CO  II 

*  1 

II 

F 

P 

1.1096 

14 

0.0793 

21.99 

0.0000 

0.0499 

10 

0.0050 

3.86 

0.0560 

0.0078 

6 

0.0013 

1.1673 

30 

Error 

Total 


Table  38.  ANOVA  for  Goodness  of  Fit  for  Follow-on  Second-Order  RSM 

(Mk-84) 


Effect 

Coded  Value 

Actual  Value 

Delivery  error  std  dev 

25.2622 

2045/1022 

Weapon  reliability 

2.4511 

1.01 

Attack  heading 

1.2563 

171.63 

Weapon  spacing 

11.8698 

198.70 

Probability  of  cut 

-1.9638 

-1.9638 

Table  39*  Stationary  Point  Analysis  for  Follow-on  Second-Order  RSM 

(Mk-84) 


statistically  insignificant  as  indicated  by  the  p-value  greater  than 
0.05  in  Table  38.  However *  lack  of  fit  would  have  been  significant  if 
0.10  had  been  the  desired  level  of  significance.  A  p-value  in  the  range 
0.20  to  0.40  would  have  indicated  strong  likelihood  of  correctly 
assuming  lack  of  fit  to  be  insignificant.  The  chance  for  error  is  large 
if  lack  of  fit  is  assumed  insignificant  based  on  the  p-value  of  0.0560 
because  it  is  so  close  to  the  chosen  level  of  significance.  Therefore* 


the  regression  equation  for  Mk-84’s  can  be  used,  but  should  be  checked 
against  further  experimentation  when  stationary  points  are  identified. 

Once  again,  the  calculated  stationary  point  was  in  an  infeasible 
region.  Weapon  reliability  was  larger  than  1.0,  and  the  predicted 

response  was  less  than  zero.  The  predicted  probability  of  cut  appeared 

to  be  a  local  minimum.  The  analyst  must  apply  boundary  conditions  to 
constrain  the  analysis  to  a  feasible  region.  Such  constraints  may 
generate  a  local  maximum. 

The  Mk-84  regression  equation  in  the  follow-on  second-order 
analysis  for  the  probability  of  cut  for  the  combination  of  runways  was: 

y  «  0.394  -  0.197  C  +  0.059  E  -  0.033  F  +  0.013  G 

-  0.001  Ca  +  0.009  Ea  -  0.033  Fa  -  0.027  Ga 

-  0.006  CE  +  0.000  CF  +  0.024  CG  -  0.011  EF 

+  0.005  EG  +  0.012  FG 

where  G,  E,  F,  and  G  are  coded  values  for  the  main  effects,  and 

y  ■  predicted  probability  of  cut 
C  ■  delivery  error  standard  deviation 
E  -  weapon  reliability 
F  ■  attack  heading 
G  -  weapon  spacing 

Note:  the  coefficient  for  the  CF  interaction  term  was  zero  to  the 

th 

13  decimal  place. 


Summary 

This  chapter  has  applied  response  surface  methodology  to  the 
airfield  attack  problem.  Two  first-order  approximations  were  performed. 
These  explored  highly  significant  AAPM0D  input  parameters  in  one 
experiment  and  parameters  controllable  by  the  aircrew  in  another. 


A  check  of  the  design  center  points  indicated  that  the  linear  assumption 
required  for  first-order  approximations  was  invalid.  Rather  than 
severely  restrict  the  region  of  experimentation,  second-order  analysis 
was  adopted. 

The  second-order  experimentation  concentrated  on  those  variables 
controllable  by  the  aircrew.  Two  weapons  loads  of  6  Mk-84  bombs  and  12 
Mk-82  bombs  were  established  for  analysis.  Second-order  RSM  analysis  of 
delivery  error,  weapon  reliability,  attack  heading,  and  weapon  spacing 
was  accomplished  for  both  of  these  weapons  loads.  The  initial  second- 
order  region  of  experimentation  was  too  large.  The  regression  equations 
did  not  explain  enough  of  the  data  to  be  conclusive.  The  area  of 
interest  was  narrowed  with  improved  results.  The  final  second-order 
experiment  for  Mk-84’ s  yielded  a  marginally  valid  response  surface  fit 
and  corresponding  regression  equation,  although  the  stationary  point 
appeared  to  be  a  local  minimum.  In  all  cases,  the  regression  equations 
contained  stationary  points  which  were  not  feasible.  In  two  out  of 
three  cases,  at  least  one  independent  variable  value  at  the  supposed 
stationary  point  was  infeasible.  In  those  cases,  the.  analyst  would  be 
required  to  apply  boundary  conditions  to  maintain  realism. 

Several  important  conclusions  resulted  from  this  analysis.  The 
scope  of  airfield  attack  parameters  was  too  large  to  permit  effective 
use  of  response  surface  methodology.  The  ranges  of  parameters  could 
have  been  reduced,  and  optimal  operating  conditions  could  have  been 
found.  However,  the  search  for  optima  requires  very  narrow  ranges  of 
input  parameters  to  produce  reasonable  response  surface  fits*  The 
limited  scope  of  a  particular  response  surface  fit  offers  little 
flexibility  in  attack  plunning.  Aircrews  must  choose  attack  headings 
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to  avoid  hostile  fire.  Additionally,  weapon  spacing  is  iestricted  by 
equipment  capabilities  and  other  factors.  Therefore  the  calculated 
optimum  conditions  may  not  be  attainable.  For  the  methodology  to  be  of 
use,  the  response  surface  must  represent  a  broad  range  of  input 
parameters. 

In  this  analysis,  the  response  appeared  to  undulate  to  such  an 
extent  that  a  quadratic  surface  fit  over  broad  ranges  of  the  input 
variables  was  not  possible.  This  was  checked  with  several  test  cases: 
simulation  runs  at  the  fitted  design  points  predicted  system  response 
accurately  within  a  10  percent  error  tolerance.  Simulation  runs  at 
points  outside  the  region  of  experimentation  produced  prediction  errors 
of  up  to  50  percent. 

Suboptimization  of  input  parameters  directly  controlled  by  the 
aircrew  may  be  required.  In  the  one  experiment  that  appeared  to  yield  a 
local  maximum,  attack  heading  and  weapon  spacing  were  both  feasible, 
while  delivery  error  and  weapon  reliability  had  driven  to  infeasible 
values.  Smaller  delivery  errors  and  higher  weapon  reliability  should 
produce  higher  probabilities  of  cut*  Though  infeasible  in  this  case, 
the  variables  moved  in  the  expected  direction.  Since  delivery  error  and 
weapon  reliability  are  largely  uncontrolled,  these  should  be  set  at 
reasonable  values,  permitting  weapon  spacing  and  attack  heading  to  be 
suboptimized.  This  is  a  primary  topic  In  the  next  chapter. 


.  *  .  4  •  *  4  *  *  *  .  * 
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VIII.  Applications 

Two  general  approaches  to  optimizing  airfield  attack  parameters  are 
on-the-spot  computer  simulation  of  airfield  attack  plans  and 
mathematical  optimization  schemes. 

Computer  Simulation 

Computerized  attack  assessment  offers  the  advantages  of  flexibility 
and  responsiveness,  but  is  hampered  by  relatively  long  execution  times 
and  cost.  Consequently,  some  care  must  be  taken  when  organizing  attack 
assessment  in  this  manner.  The  Attack  Assessment  Program — MODIFIED 
(AAPMOD)  has  been  designed  to  fulfill  the  requirement  of  validated 
attack  assessment  for  field  use. 

The  most  efficient  use  of  AAPMOD  would  be  to  have  available 
preprogrammed  input  databases  containing  target,  weapon,  and  attack 
pattern  information.  With  these  databases,  the  user  could  formulate 
attacks  quickly  and  analyze  them.  A  single  run  could  then  be  formulated 
and  run  in  less  than  one  hour  in  many  cases.  Wing  mission-planning 
officers  could  run  such  programs  upon  receipt  of  a  fragmentary  order 
and  prior  to  aircrew  briefings*  Aircrews  could  use  the  programs  to 
improve  tactics  by  analyzing  proposed  plans  during  peacetime  training  to 
determine  maximum  effectiveness. 

The  User  Manual  at  Appendix  A  is  a  comprehensive,  step-by-step 
guide  for  U3e  of  the  AAPMOD  series  of  programs.  The  database  loader 
programs  have  been  designed  with  the  end  user  in  mind;  hence  plenty  of 
on-screen  help  is  available  and  extensive  error-checking  of  inputs  is 
accomplished. 
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Use  of  AAPMOD  for  current  analyses  permits  maximum  use  of  the 
considerable  flexibility  of  this  program.  Airfield  attack  parameters 
can  interact  in  countless  combinations.  The  fragmentary  order  for 
mission  tasking  fixes  many  of  the  parameters  at  specific  levels,  leaving 
fewer  parameters  subject  to  aircrew  judgement. 

A  possible  method  of  employing  on-the-spot  computer  simulation 

would  be  to  generate  several  potential  attack  plans  for  a  given  target 

complex.  Attack  plans  would  correspond  to  the  design  points  in  the 

RSM  designs.  Each  plan  could  be  programmed  in  approximately  30  minutes 

and  run  on  microcomputers  using  the  instructions  provided  at  Appendix  A. 

The  plan  providing  the  best  relative  system  response  would  provide 

maximum  effectiveness  for  a  given  level  of  hostile  fire.  The  number  of 

data  points  would  be  very  small  compared  to  RSM  analysis.  These  points 

hardly  could  be  expected  to  yield  the  global  optimum,  but  near-optimal 

results  are  likely.  On  a  daily  basis,  aircrews  apply  heuristics  in 

planning  airfield  attacks.  Presumably,  these  heuristics  would  be 

applied  to  airfield  attack  plans  submitted  for  analysis.  The  process 

« 

would  be  one  of  choosing  the  best  near-optimal  plan. 

AAPMOD  computer  simulation  could  be  used  in  peacetime  training  in  a 
similar  manner.  Teams  could  compete  to  determine  the  best  attack  plan. 
In  the  competitive  environment  of  a  fighter  squadron,  it  would  not  take 
long  tor  the  aircrews  to  develop  effective  planning  techniques  am)  learn 
from  each  other's  mistakes.  This,  in  turn,  would  be  extended  to  wartime 
operations,  provided  that  the  aircrews  gained  confidence  in  AAPMOD 
results. 
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Mathematical  Optimization 

An  alternative  approach  to  computer  simulation  is  to  conduct 
extensive  analysis  of  enemy  airdromes  prior  to  the  outbreak  of 


hostilities.  A  response  surface  can  be  fitted  to  the  particular 
airdromes  of  interest.  Within  the  limits  of  feasibility,  optima  can  be 
determined  from  the  regression  equation  which  characterizes  the  response 
surface . 


Aircrews  can  control  attack  heading  and  weapon  spacing.  The  other 
airfield  attack  parameters  can  be  fixed  at  nominal  levels  based  on 
historical  data,  gunnery  records,  and  standard  weapon  loads.  In  this 
way  AAPMOD  can  be  used  to  sub-optimize  attack  heading  and  weapon 


spacing . 

The  coding  equations  for  the  airfield  attack  parameters  are: 

C  »  (  C*  -  150  )  /  75  E  »  (  E’  -  0.89  )  /  0.05 

F  -  (  F'  -  157.5  )  /  11.25  G  »  (  G'  -  80  )  /  10 

where  the  primed  values  are  real-world  values,  the  unpriraed  values 
are  coded  values,  C  is  the  delivery  error  standard  deviation,  E 
is  the  weapon  reliability,  F  is  the  attack  heading,  and  G  is  the 
weapon  spacing. 

The  regression  equation  for  Mk-82  attack  of  the  airfield  depicted 
in  Figure  1  is  repeated  here: 

y  -  0.5293  -  0.0854  C  +  0.0454  E  +  0.0138  F  -  0.0550  6 

-  0,0449  G*  -  0.0012  E’  -  0.0737  F#  ~  0.0043  G* 

-  0.0075  CE  -  0.0575  CF  +  0.0288  CG  -  0.0100  EF 

+  0.0100  EG  +  0.0250  FG 


where  y  is  the  predicted  probability  of  cut;  and  C,  E,  F,  and  G  are  as 
described  above. 
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For  this  regression  equation,  probability  of  arrival  was  fixed  at 
0.95,  type  of  weapon  was  a  Mk-82,  number  of  weapons  was  12. 
Uncontrolled  variables  in  the  equation  are  delivery  error  and  weapon 
reliability.  Both  of  these  could  be  estimated  by  the  squadron  weapons 
officer.  The  choice  for  these  parameters  necessarily  would  be  in  the 
feasible  region.  This  would  avoid  some  of  the  problems  noted  in  Chapter 
VII  when  calculating  stationary  points.  As  an  example,  delivery 
accuracy  and  weapons  reliability  might  be  determined  to  be  200/100  feet 
and  0,85  for  a  particular  airfield  attack  with  designated  crews.  These 
values  can  be  substituted  into  the  regression  equation.  This  leaves  one 
equation  with  two  unknown  variables.  The  optimal  values  of  weapon 
spacing  and  attack  heading  with  all  other  variables  fixed  are  found  by 
solving  the  two  simultaneous  equations  that  result  when  the  simplified 
regression  equation  is  differentiated  with  respect  to  weapon  spacing  and 
attack  heading.  The  two  partial  derivatives  would  be  as  follows: 

9y 

- -  -0.0165  -  0.1474  F  +  0.0250  G  -  0 

3F 

3y 

-  -  -0.0438  +  0.0250  F  -  0.0086  G  »  0 

3G 

These  equations  are  solved  giving  G  ■  -10.688  and  F  »  -1.9427. 
These  are  the  coded  values.  The  actual  values  for  weapon  spacing  and 
attack  heading  would  be  -26.89  feet  and  135.6° ,  respectively.  A 
negative  weapon  spacing  is  infeasible.  The  analyst  must  bound  the 
system  in  some  manner.  There  are  sophisticated  mathematical  tools  for 
searching  for  optima  which  also  meet  constraints.  These  are  beyond  the 
scope  of  the  typical  aircrew  in  a  flying  squadron  and  were  discounted. 


at 

stationary 

point 
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A  more  simple  means  of  bounding  the  problem  is  possible.  The  negative 
value  for  weapons  spacing  implies  that  small  values  increase  the 
probability  of  cut.  If  this  is  the  case,  then  the  weapons  spacing  can 
be  set  at  a  minimum  value  in  a  manner  similar  to  delivery  error  and 
weapon  reliability.  Suppose  that  30  feet  is  the  minimum  possible 
weapons  spacing.  Substituting  into  the  equation  for  3y/3F  results  in  a 
coded  attack  heading  of  1.754.  This  is  decoded  as  177.2°  —  almost 
directly  along  the  primary  runway  axis.  The  results  easily  can  be 
checked  by  using  the  original  regression  equation  to  find  a  predicted 
value  of  y  and  then  running  AAPMOD  to  find  the  experimental  value.  The 
predicted  value  of  y  is  0,074  and  the  experimental  value  is  0.120. 

Several  observations  are  appropriate.  First,  the  indicated  attack, 
heading  is  not  very  appealing  on  an  intuitive  level.  Second,  the 
probability  of  cut  is  relatively  poor.  Finally,  the  center  point  of  the 
underlying  RSM  analysis  gave  probabilities  of  cut  averaging  0,530.  The 
simplifying  assumption  of  minimum  weapon  spacing  was  invalid. 

The  regression  equation  is  valid  in  the  region  of  experimentation, 
which  should  facilitate  the  search  for  optima.  Different  combinations 
of  weapons  spacing  and  attack  heading  can  be  checked  with  the  regression 
equation  for  the  beat  system  response.  This  is  an  informal  method  of 
searching  the  response  surface  for  optimal  operating  conditions.  Table 
40  summarises  the  results  of  this  search.  The  original  center  point  was 
a  reasonable  estimate. 

Another  possible  drawback  of  this  technique  is  the  difficulty  of 
anticipating  all  the  parameter  levels  which  must  be  fixed.  The  scenario 
used  to  generate  the  previous  example  was  somewhat  restrictive.  Six 


aircraft  attacked  a  simplified  airfield  using  the  same  weapons,  attack 


patterns,  and  attack  heading.  The  combinations  of  these  variables  might 
require  numerous  such  scenarios  for  mathematical  optimization  to  be 
effective. 

Mathematical  optimization  would  be  accomplished  more  easily  with  a 
further  simplified  scenario.  This  was  the  approach  pursued  by  Peck 
(41).  Figure  6  depicts  a  typical  chart  from  Peck's  analysis.  This  is 
based  on  a  single  4000  foot  long  strip.  The  object  of  an  attack  is  to 
produce  one  cut  which  will  close  the  strip.  From  one  to  six  passes  are 
considered.  Peck  found  that  individual  attacks  could  be  treated  as 
independent  with  minor  loss  of  accuracy  in  limited  cases. 

Summary 

Mathematical  suboptimization  has  been  stymied  by  inadequate 
* 

response  surface  fit  and  complex  mathematical  methods  beyond  the  average 
aircrew.  Under  certain  circumstances,  heuristics  seem  to  produce 
results  better  than  mathematically  derived  optima. 
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Figure  6.  Airfield  Attack  Effectiveness 
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It  is  important  to  reiterate  that  response  surface  methodology  is 
capable  of  identifying  a  local  maximum  response.  The  search  for  this 
optimum  would  cover  successive  sections  of  response  surface  small  enough 
to  produce  an  adequate  fit*  Once  identified,  the  local  maximum  and  the 
accompanying  regression  equation  would  be  restricted  to  the  small  area. 
If  that  area  were  forbidden  to  the  aircrew  by  hostile  gun  emplacements 
or  weapon  requirements,  the  prediction  would  be  of  little  use.  The 
regression  equation  would  not  be  likely  to  make  accurate  predictions 
outside  the  restricted  area  of  experimentation. 

In  addition,  the  response  surface  could  be  invalidated  by  any 
changes  to  the  target  airfield;  numerous  runs  would  have  to  be 
reaccomplished  for  each  change. 

For  these  reasons,  mathematical  optimization  and  response  surface 
methodology  are  not  recommended  for  this  problem,  except  to  identify 
areas  of  near-optimality  useful  in  developing  aircrew  heuristics. 
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The  recommended  approach  is  use  of  on-the-spot  computer  simulation. 
The  user  manual  for  the  implementation  of  microcomputer  versions  of 
AAPMOD  is  located  at  Appendix  A.  PASCAL  computer  code  is  located  at 
Appendix  B.  Predefined  databases  can  be  maintained  and  updated  easily 
for  potential  target  airfields,  weapons,  and  attack  patterns.  When 
time-critical  mission  tasking  arrives  at  the  squadron,  several  attack 
plans  can  be  assembled  and  analyzed  promptly. 


IX.  Sensitivity  Analysis 

Several  areas  of  the  analysis  are  sensitive  to  assumed 
distributions  and  parameters.  Some  sensitivity  analysis  has  already 
been  performed  in  the  form  of  the  regression  coefficients  for  the 
various  independent  variables.  The  larger  the  regression  coefficient, 
the  more  sensitive  is  the  analysis  to  that  parameter.  Some  judgement 
must  be  used  in  that  the  regression  coefficient  shows  the  effect  of  a 
unit  change  in  the  scaled  variable.  The  scaling  could  be  such  that 
fairly  major  changes  in  the  raw  variable  have  relatively  little  effect 
on  the  system  response. 

There  are  other  areas  which  might  be  sensitive  to  changes  besides 
the  independent  variables  in  the  problems.  One  area  is  the  probability 
distribution  chosen  to  model  the  aiming,  delivery,  and  ballistic  errors. 
The  bivariate  normal  distribution  is  used  to  model  ballistic  and 
delivery  errors.  This  is  reasonable  for  large  numbers  of  passes  due  to 
the  Central  Limit  Theorem.  The  normal  distribution  is  very  widely  used 
for  this  type  of  error  throughout  the  analytical  community,  JMEMs  make 
use  of  bivariate  normal  distributions  although  JMEMs  were  written 
assuming  that  range  and  deflection  errors  were  independent.  The  normal 
distribution  is  so  widely  accepted  for  description  of  probable  errors 
that  it  would  be  ill-advised  to  use  any  other  distribution.  The 
parameters  of  the  delivery  error  distribution  were  varied  during  the 
analysis.  The  standard  deviations  for  the  ballistic  error  distributions 
were  fixed  throughout  the  analysis#  These  would  have  an  effect  similar 
to  delivery  error. 
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A  triangular  distribution  is  used  to  model  the  ability  of  aircrews 
to  discern  the  desired  aimpoint  as  designated  by  higher  headquarters  or 
by  the  aircrew  during  pre-mission  planning.  This  needs  to  be  considered 
because  determining  an  aimpoint  along  a  nondescript  line  feature  is 
inherently  difficult.  Miglin's  version  of  AAPMOD  uses  the  raid-point  as 
zero  aiming  error  and  the  end  points  as  ±1000  feet.  This  seems 
reasonable  for  line  features  which  probably  will  be  8000  to  9000  feet  in 
length.  Still,  some  sensitivity  analysis  is  warranted.  The  end  point 
parameter  in  the  triangular  distribution  was  tested  at  0,  500,  1000, 
1500  and  2000  feet  using  one  particular  design  point  in  which  the  1000- 
foot  end  point  had  produced  a  combined  probability  of  cut  of  0.700.  The 
design  point  chosen  is  already  near  optimum  for  all  other  variables 
which  should  make  the  response  particularly  sensitive  to  aimpoint 
determination  errors.  There  was  no  change  in  combined  probability  of 
cut  at  0  or  500  feet.  The  probability  of  cut  dropped  to  0.610  for  1500 
feet  and  0.510  for  2000  feet.  It  was  concluded  that  AAPMOD  was  not 
particularly  sensitive  to  the  triangular  distribution  or  the  end  point 
parameter.  The  2000-foot  figure  implies  that  the  aircrew  cannot 
determine  the  midpoint  of  an  8000  foot  long  runway.  This  only  would  be 
the  case  in  poor  weather  or  against  a  well  camouflaged  runway. 

AAPMOD  generates  normal  random  variates  using  the  exact  inverse 
method.  This  method  can  be  time-consuming  since  sines,  cosines,  and 
natural  logarithms  must  be  calculated.  An  approximate  method  is 
discussed  in  Banks  (3:318).  This  method  was  tested  on  the  GDC  Cyber  for 
several  representative  runs.  The  average  reduction  in  central  processor 
time  was  5.5  percent  for  the  rues  tested.  Hie  approximate  method  is  not 
as  accurate  as  the  exact  inverse  method,  suggesting  that  the  exact 
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inverse  generator  be  retained.  The  analyst  should  consider  the  accuracy 
lost  for  the  relatively  small  gain  in  computer  time. 

Another  reduction  in  required  computer  time  was  realized  by  not 
calculating  expected  area  to  fill  to  open  a  runway.  Sensitivity  of  the 
analysis  to  this  parameter  was  tested  against  31  separate  design  points. 
In  each  case,  the  same  relative  ranking  of  design  points  was  indicated 
by  both  the  expected  area  to  fill  and  the  expected  number  of  craters  to 
fill.  The  latter  figure  is  automatically  supplied  in  the  abbreviated 
output  and  requires  approximately  one-fifteenth  the  processor  time. 
Calculation  of  expected  area  to  fill  is  not  recommended. 

Release  mode  was  not  a  variable  considered  for  the  main  analysis. 
System  sensitivity  to  paired  releases  will  be  discussed  next.  Paired 
releases  resulted  in  more  favorable  system  responses  when  low  delivery 
errors  and  attack  headings  near-perpendicular  to  the  runway  were 
assumed.  Paired  releases  were  less  favorable  than  single  releases  for 
attacks  along  the  runway  centerline.  If  delivery  error  were  assumed  to 
be  large,  the  single  releases  dominated.  Consequently,  paired  releases 
are  indicated  for  accurate  delivery  systems  (such  as  the  F-16),  but  not 
for  inaccurate  systems. 

The  last  area  for  sensitivity  analysis  is  the  number  of  aircraft 
participating  in  the  attack.  A  simple  test  case  was  run  in  which  from  1 
to  12  aircraft  attacked  the  airfield  depicted  in  Figure  1.  The  system 
response  decreases  when  fewer  attacking  aircraft  participate  in  the 
attack*  Table  41  summarizes  the  number  of  aircraft  attacking  a 
particular  aimpoint  as  well  as  the  system  response.  The  expected  number 
of  craters  to  fill  increased  monotonically  with  increasing  numbers  of 
aircraft,  but  the  probability  of  cut  did  not  increase  monotonically. 


Aimpoints 

#  Acft 

(3000,0) 

(6000,0) 

(1500,2598) 

P  . 
cut 

#  Craters 

1 

1 

0 

0 

0.000 

0 

2 

1 

0 

1 

0.000 

0 

3 

1 

1 

1 

.  0.160 

0.160 

4 

2 

1 

1 

0.225 

0.225 

5 

2 

2 

1 

0.340 

0.340 

6 

2 

.  2 

2 

0.700 

0.815 

7 

3 

2 

2 

0.775 

0.985 

8 

3 

3 

2 

0.770 

0.995 

9 

3 

3 

3 

0.920 

1.640 

10 

4 

3 

3 

0.910 

1.690 

11 

4 

4 

3 

0.940 

1.795 

12 

4 

4 

4 

0.980 

2.495 

Table  41,  Sensitivity  of  Number  of  Attacking  Aircraft 


The  probability  of  cut  dropped  when  adding  an  eighth  aircraft  and 
when  adding  a  tenth  aircraft.  This  anomaly  was  attributed  to  random 
number  streams  at  first.  However,  switching  random  number  seeds 
generated  similar  results. 


X.  Concluding  Remarks 


Recommendations  for  Further  Analysis 

This  analysis  is  only  one  step  in  the  process  of  analyzing  airfield 
attacks.  There  are  many  possibilities  for  further  analysis. 

1.  Douglas  (15)  concluded  that  single  aircraft  always  should 
attack  near-perpendicular  to  the  runway  centerline  for  best  probability 
of  cut.  Addition  of  more  aircraft  broadens  the  range  of  effective 
angles  from  which  to  attack  the  runway.  The  method  used  for  developing 
the  response  surfaces  should  be  scaled  down  to  a  single  aircraft  to 
determine  if  the  results  differ  for  a  single  attack  as  opposed  to  a 
strike  package.  The  intuitive  answer  is  that  the  results  should  be 
similar. 

2.  Continuation  of  Dr.  Whitehead's  (55)  work  might  prove 
worthwhile  in  attempting  to  trade  off  probability  of  closure  versus  the 
maximum  amount  of  damage  inflicted  on  the  runway  surface.  These  goals 
tend  to  conflict.  The  former  is  an  indication  of  whether  the  field  will 
be  closed  for  any  period  of  time*  while  the  latter  gives  an  idea  of  how 
long  the  field  could  be  expected  to  remain  closed. 

3*  More  work  is  needed  on  the  feasibility  of  fitting  response 
surface  curves.  If  families  of  curves  can  be  developed*  then  aircrews 
could  look  up  their  particular  attack  conditions  to  determine  the  best 
attack  heading  and  weapons  spacing. 

4,  In  the  present  version  of  AAPHOD,  the  only  method  of  damaging 
structures  is  by  craters.  The  portion  of  building  upon  which  the  crater 
infringes  is  considered  destroyed.  This  ignores  both  fragmentation  and 
blast  damage,  which  will  be  significant  factors  in  structural  damage. 
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5.  In  attacking  an  airfield,  there  is  probably  a  ’’best"  way  to 
attack  and  a  surrounding  region  of  "good”  ways  to  attack.  It  is 
possible  that  the  best  attack  from  an  effectiveness  standpoint  may  not 
be  the  best  attack  from  a  survivability  perspective.  The  most  likely 
avenues  of  attack  may  be  the  best  defended.  Identification  of  regions 
containing  near-optimal  points  would  be  useful  for  analysis  of  tradeoffs 
between  survivability  and  effectiveness  —  the  ultimate  goal  of  any 
airfield  attack  study. 

6.  The  non-linear  transformations  and  non-linear  optimization 
techniques  may  streamline  the  search  for  optimal  airfield  attack 
parameters.  Hillier  and  Lieberman  (25:748)  suggest  non-linear 
programming  using  Kuhn-Tucker  conditions  when  considering  non-linear 
problems.  The  difficulties  of  obtaining  valid  response  surface  fits 
indicate  possible  non-linearities  in  the  airfield  attack  surface. 

Conclusion 

This  thesis  effort  has  succeeded  in  its  primary  objectives. 
Extensive  modification  was  performed  to  the  AAPHOD  input  procedures. 
The  old  program  was  divided  into  three  sections  which  now  permit  easy 
management  of  target,  weapon,  and  attack  pattern  databases.  Previous. to 
this  effort,  no  such  capability  existed  for  microcomputers,  and 
mainframe  computer  programs  were  unwieldy.  Now  the  entire  AAPMOD 
package  can  be  executed  on  microcomputers  common  throughout  the  tactical 
fighter  community. 

Verification  and  validation  of  AAPHOD  were  performed  during  the 
course  of  the  analysis.  Previous  coding  errors  were  discovered  and 
corrected.  Extensive  testing  of  random  number  generators  was 


accomplished.  Output  fr'un  all  AFIT  versions  of  AAPMOD  was  cross-checked 
and  found  to  produce  nearly  identical  results.  Output  based  on  the  same 
number  stream  produced  identical  results  from  the  PASCAL  microcomputer 
version  and  the  FORTRAN  mainframe  version  of  AAPMOD. 

Several  statistical  experiments  were  performed.  A  screening 
experiment  was  employed  to  identify  significant  airfield  attack 
parameters.  Probability  of  arrival}  weapons  type,  delivery  error, 
number  of  weapons,  weapon  reliability,  attack  heading,  and  weapon 
spacing  were  all  found  to  be  significant.  Response  surface 
experimentation  successfully  fitted  a  regression  equation  to  airfield 
attack  responses  in  the  form  of  probability  of  runway  cut  and  expected 
number  of  craters  to  be  filled  to  re-open  the  airfield.  Stationary 
points  identified  from  the  regression  equations  lay  outside  feasible 
regions,  but  results  could  be  bounded  to  produce  usable  results. 

While  response  surfaces  can  be  fitted  to  the  airfield  attack 
problem,  excessive  computer  runs  would  be  required.  Regions  of  interest 
necessarily  would  be  very  small  to  obtain  a  valid  response  surface  fit. 
Extrapolation  outside  the  immediate  area  of  fit  was  shown  to  be  highly 
inaccurate.  Restricted  ranges  of  airfield  attack  input  parameters  would 
not  fulfill  aircrew  needs  for  planning  attacks.  In  addition,  any  change 
in  the  target  airfield  would  render  the  response  surface  invalid. 

This  analysis  recommends  use  of  on-the-spot  computer  simulation  for 
airfield  attack  planning.  Databases  for  target  airfields,  weapons,  and 
attack  patterns  can  be  maintained  easily  with  newly  available 
microcomputer  versions  of  AAPMOD  and  associated  programs.  Airfield 
attack  plans  can  be  quickly  programmed  and  analyzed  at  wing  and 
squadron  levels. 
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I.  Introduction 


This  appendix  comprises  the  user  manuals  for  the  Attack  Assessment 
Program  (AAP)  package,  consisting  of  four  programs: 

1.  Attack  Assessment  Program — MODIFIED  (AAPMOD). 

2.  AAP  Target  database  generator  program  (AAPTGT). 

3.  AAP  Weapons  and  Attack  Pattern  database  generator  program 
(AAPWPN) . 

4.  AAP  Mission  database  generator  program  (AAPMSN). 

This  appendix  address^  system  requirements  for  running  these 
programs,  compilation  of  PASCAL  source  code  into  executable 
microcomputer  programs,  and  detailed  instructions  describing  how  to  use 
each  program. 


AAPMQD 


AAPMOD  is  used  to  calculate  probabilities  of  target  kill  based  on 
the  input  data  contained  in  a  single  input  database  file.  The  only  user 
interface  required  is  the  specification  of  the  input  and  output  file 
names.  The  program  reads  the  input  file,  calculates  the  output 
statistics,  and  stores  the  results  in  the  output  file.  Depending  on  the 
input  database  and  the  computer  system  on  which  the  program  is  run,  the 
program  may  take  from  a  few  seconds  to  as  long  as  several  hours,  or  even 
days,  to  complete, 

AAPTGT,  AAPWPN .  and  AAPMSN 

AAPTGT,  AAPWPN,  and  AAPMSN  are  fully  interactive  programs  which 
allow  the  user  to  build  a  new  database  or  modify  an  existing  database 
for  input  to  AAPMQD. 

AAPTGT.  AAPTGT  handles  the  target  database.  A  new  database  can  be 
generated,  or  an  existing  one  can  be  modified.  The  target  complex  is 
defined  here.  Up  to  3  runways,  30  pavements  and  a  total  of  112  targets 
may  be  entered  into  the  database.  Runways  and  taxiways  are  categorized 
as  pavements,  and  all  other  targets  are  considered  to  be  "non- 
pavements."  Targets  must  be  assigned  a  hardness  code  ranging  from  1  to 
11,  which  is  then  used  to  indicate  how  much  damage  a  particular  weapon 
will  inflict  on  the  target  when  hit.  Targets  also  are  assigned  a  group 
number  ranging  from  1  to  IS  so  that  output  data  will  be  grouped  as 
desired.  The  amount  of  repairs  that  can  be  made  to  the  pavements  and 
the  priority  of  these  repairs  are  loaded  into  the  database.  When  the 
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program  ends,  the  new  version  of  the  file  is  written  on  the  disk  and  is 
ready  for  use  by  program  AAPMSN. 

AAPWPN.  AAPWPN  handles  the  weapons  and  attack  pattern  database. 
A  new  database  can  be  generated,  or  an  existing  one  can  be  modified. 
The  weapons  to  be  used  and  the  attack  patterns  to  be  flown  are  defined 
here.  Weapons  are  defined  by  the  sizes  of  craters  they  produce  upon 
impact  with  targets  of  the  different  hardness  codes  specified  in  the 
target  database.  Up  to  6  different  types  of  weapons  may  be  defined  in 
this  manner.  Once  the  weapons  are  defined,  the  program  next  loads  the 
pattern  data.  Up  to  12  different  attack  patterns  may  be  defined.  For 
each  pattern,  the  number  of  weapons  dropped,  weapons  reliability,  range 
errors,  and  deflection  errors  must  be  specified.  When  the  program  ends, 
the  new  version  of  the  file  is  written  on  the  disk  and  is  ready  for  use 
by  program  AAPMSN. 

AAPMSN.  AAPMSN  combines  the  databases  from  files  written  with 
AAPTGT  and  AAPWPN  with  additional  data  input  during  execution  of  AAPMSN 
and  writos  a  single  file  ready  to  be  used  by  AAPMOD,  The  additional 
data  include  a  random  number  seed,  number  of  iterations  desired, 
frequency  of  reports  during  the  iterations,  the  level  of  significance 
desired  for  the  analysis  and  its  corresponding  Standard  Normal  test 
statistic,  and  target  attack  data.  The  attack  data  include  the  target 
to  be  attacked,  the  number  of  passes  over  the  target,  aimpoints,  attack 
direction  for  each  pass,  reattack  information,  and  enroute  attrition. 


After  the  program  ends,  AAPMOD  may  be  run  using  the  newly  created  disk 
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The  database  generator  programs  (AAPTGT,  AAPWPN ,  and  AAPMSN) 
require  a  microcomputer  with  64  kilobytes  (K)  of  random  access  memory 
and  1  disk  drive  (or  equivalent).  The  AAPMOD  program  requires  a 
microcomputer  with  a  minimum  of  192K  of  random  access  memory  and  1  disk 
drive  (or  equivalent).  All  of  the  microcomputer  programs  were  designed 
for  interactive  display  on  a  video  screen  with  a  minimum  of  80  columns 
and  24  lines* 

It  is  highly  recommended  that  the  microcomputer  be  equipped  with  an 
8087  math  coprocessor  for  reasonable  AAPMOD  execution-  times. 
Alternatively,  AAPMOD  may  be  run  on  a  mainframe  computer.  Hardware  to 
transfer  files  from  the  microcomputer  to  the  mainframe  computer  may  be 
desired • 

Contingent  on  the  scenario  and  the  machine,  AAPMOD  execution  time 
can  be  juite  lengthy.  The  NEC  Advanced  Personal  Computer  (NEC  APC)  with 
a  floating  point  (Intel  8087)  coprocessor  unit  ran  sample  test  cases  in 
approximately  3  to  8  minutes.  These  same  runs  required  about  3  to  6 
seconds  on  the  Control  Data  Corporation  (CDC)  6600  CYBER,  Without  the 
8087  coprocessor,  a  16-bit  machine  with  a  5  Megallertz  8086  central 
processor  unit  will  require  about  7  times  as  long  to  run  the  same 
program  based  on  results  from  a  NEC  APC. 

Software 

The  microcomputer  AAP  series  is  written  in  Borland  International's 
TURBO  PASCAL  and  is  specific  to  this  version  of  PASCAL.  TURBO  PASCAL  is 
readily  available  from  Borland  International,  4113  Scotts  Valley  Drive, 


Scotts  Valley,  CA  95066  at  very  reasonable  cost.  Versions  are  available 
for  the  following  operating  systems:  Digital  Research’s  CP/M-80,  CP/M- 
86,  and  Concurrent  CP/M-86;  Microsoft’s  MS-DOS;  and  International 
Business  Machine’s  PC-DOS. 

To  run  the  series,  command  files  produced  by  TURBO  PASCAL  for  the 
microcomputer  are  recommended.  These  command  files  must  have  been 
generated  for  the  specific  microcomputer  terminal  to  be  used.  If  the 
microcomputer  is  equipped  with  an  8087  math  coprocessor,  command  files 
produced  by  the  TUREO-87  version  cf  TURBO  PASCAL  will  be  needed  to  make 
use  of  the  coprocessor.  Should  these  command  files  be  unavailable,  the 
standard,  non-8087  files  will  run,  bur  at  the  slower  speed  of  the  same 
computer  not  equipped  with  the  8087  coprocessor. 

Alternatively,  a  'version  of  TURBO  PASCAL  compatible  with  the 
microcomputer  may  be  used  to  compile  and  generate  the  executable  command 
files.  A  version  of  TURBO  PASCAL  (TURBO-87)  would  be  required  to 
compile  command  files  compatible  with  the  8087  coprocessor,  if  the 
microcomputer  is  so  equipped.  In  order  to  compile  the  programs,  the 
PASCAL  source  code  files  for  each  program  must  be  available  while 
executing  TURBO  PASCAL. 

The  operating  system  must  accept  filenames  in  the  form 
xxxxxxxx.xxx,  where  xxxxxxxx  and  xxx  are  a  series  of  alphanumeric 
characters  (A  through  Z  and  the  digits  0  through  9)  separated  by  a 
period.  Though  the  programs  will  run  with  different  operating  systems, 
the  operating  system  must  be  compatible  with  TURBO  PASCAL.  Furthermore, 
different  systems  require  different  amounts  of  available  memory; 
consequently,  minimum  configuration  systems  such  as  8-bit,  64K  machines 


may  not  be  able  to  run  the  AAP  programs  unless  there  remains  a 
sufficient  transient  program  area  to  fit  them. 

AAPTGT,  AAPWPN,  and  AAPMSN  were  tested  successfully  with  TURBO 
PASCAL  Versions  1.0,  2.0,  and  2.1.  The  programs  also  tested 
successfully  on  the  following  systems:  a  64K  Kaypro  4  running  Digital 
Research's  OP/M-80,  Version  2.2;  a  56K  Electronic  Control  Technology 
TT-10  system  running  CP/M-80,  Version  2.2  with  ZCPR2;  a  64K  Integrand 
Single  Board  Computer  (S— 100  Super-Quad)  running  CP/M-80,  Version  2.2; 
and  a  256K  NEC  APC  running  Digital  Research's  CP/M-86,  Version  1.107, 
Concurrent  CP/M-86,  Version  2.00,  and  Microsoft’s  MS-DOS,  Version  2.11. 
Files  generated  by  the  programs  will  be  completely  compatible  among 
machines,  operating  systems,  and  versions  of  TURB()' PASCAL. 

■  S\ 

AAPM0D  was  tested  successfully  on  a  NEC  APC  with  256K,  running  the 
operating  systems  mentioned  in  the  previous  paragraph  for  the  NEC  APC 
and  all  previously  mencioned  versions  of  TURBO  PASCAL. 

Program  AAPMSN  produces  a  disk  file  that  is  ready  for  input  to 
AAPM0D.  This  input  file  is  compatible  with  the  TURBO  PASCAL  version  and 
the  CYBER  CDC  6600  FORTRAN  5  version  of  AAPM0D.  Therefore,  by 
transferring  the  disk  file  to  the  CYBER  computer,  AAP^D  may  be  executed 
in  FORTRAN  5  with  very  quick  execution  times.  Software  for  transferring 
files  to  the  CYBER  may  be  desired.  To  run  the  mainframe  version  on  a 
computer  other  than  the  CYBER  might  require  minor  modification  to  the 
FORTRAN  5  source  code  in  order  to  make  it  compatible  with  a  different 
FORTRAN  compiler. 


IV.  Using  TURBO  PASCAL  to  Generate  AAP  Programs 


The  most  convenient  way  to  run  the  AAP  series  of  programs  is  to 
obtain  or  create  command  files  from  the  PASCAL  source  code.  This 
section  of  the  user  manual  describes  how  to  create  these  files,  and 
assumes  that  the  user  has: 

1.  A  microcomputer  meeting  the  minimum  hardware  specifications 
given  on  page  A-6. 

2.  Borland  International’ s  TURBO  PASCAL  (any  version). 

3.  An  operating  system  compatible  with  TUPBQ  PASCAL. 

4.  PASCAL  source  code  for  the  AAP  programs  to  be  compiled  on  a 
disk  compatible  with  the  microcomputer  being  used. 

The  source  code  for  the  four  programs  is  in  the  form  AAPxxx.PAS  and 
AAPxxxUPAS,  where  AAPxxx  is  either  AAPlh.  D,  AAPTGT,  AAFWPN  or  AAPMSN , 
and  AAPxxx 1  U  AAFMGD1 „  AAPTGT1 ,  AAPWPN1,  or  AAPMSN1,  Each  of  the  files 
AAPxxx.PAS  contains  a  single  statement,  as  follows:  { $1 AAPxxx 1. PAS} . 
This  statement  is  the  TURBO  PASCAL  compiler  directive  to  INCLUDE  the 
file  named  AAPxxx 1, PAS »  Since  these  files  are  most  likely  too  large  for 
the  TURBO  PASCAL  editor  to  load,  the  INCLUDE  directive  is  necessary  to 
allow  command  file  creation.  For  other  methods  of  compilation  and  file 
editing,  refer  to  the  TURBO  PASCAL  Reference  Manual. 

How  to  Cx'eate  a  Command  File 

To  ci ©ate  a  command  file,  only  2  source  code  files  need  be  present 
on  the  disk;  the  pair  of  AAPxxx.PAS  and  AAPxxxl.PAS  files  (for  example, 
AAPICD.PAS  and  AAPM0D1.PAS  to  create  the  command  file  AAPMOD.COH  or 
AAPMOD.CMO).  First,  execute  the  TURBO  PASCAL  program.  If  the 

microcomputer  has  an  SOB?  coprocessor  and  an  SOS?  version  of  TURBO 
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PASCAL  is  available,  be  sure  to  execute  the  TURBO-87  program  instead  of 
TURBO.  Respond  "N"  (no)  to  the  question  "Include  error  messages  (Y/N)?" 
if  system  memory  is  a  limitation  (64K  systems),  since  this  saves 
approximately  1.5K  additional  memory  while  TURBO  PASCAL  is  executing. 
From  the  main  TURBO  menu,  first  "log  in"  the  disk  drive  containing  the 
diskette  of  AAPxxx  files.  To  do  this,  type  the  letter:  L.  TURBO 
prompts  with  "New  drive:"  and  you  should  respond:  D  <RETURN>,  where  D  is 
the  disk  drive  designator  (probably  A  or  B).  Now  slowly  (to  allow 
different  menus  to  stabilize  on  the  video  display)  type  the  following 
sequence  of  letters:  OCQC.  Then,  when  asked  to  enter  the  work  file 
name,  type  AAPxxx  and  press  <RETURN>,  TURBO  PASCAL  now  should  compile 
the  program  and  write  the  command  file  to  disk.  When  complete, 
indicated  by  compilation  statistics  displayed  on  the  video  screen  and  a 
return  of  the  TURBO  PASCAL  prompt  (the  >  character),  type  the  letter  Q 
to  exit  TURBO.  Unless  errors  occurred,  the  command  file  should  he  ready 
to  run  oy  typing  the  command  AAPxxx. 

Possible  Errors 

TURBO  may  issue  an  error  indicating  memory  overflow.  If  this 
occurs,  be  sure  the  work  file  was  the  one  with  the  INCLUDE  directive  in 
it,  and  not  the  one  containing  the  large  source  code.  If  the  work  file 
was  specified  correctly,  then  the  microcomputer  configuration  does  not 
have  oufficient  memory  to  allow  successful  compilation.  This  may  occur 
with  one  or  more  programs.  The  only  solution  is  to  use  a  different 
configuration,  such  as  a  microcomputer  with  more  memory  or  a  smaller 
operating  system.  This  error  should  not  occur  with  256  K  (or  larger) 
machines.  Another  error 'may  be  caused  by  a  disk  with  insufficient  room 


for  the  command  file  to  be  written,  resulting  in  a  disk  full  error.  If 
this  occurs,  files  should  be  copied  to  a  disk  with  more  space  available; 
the  only  files  Chat  need  to  be  on  the  new  disk  are  the  pair  of 
AAPxxx.PAS  and  AAPxxxl.PAS  files  to  be  compiled.  If  an  error  message 
indicating  the  disk  is  "READ-ONLY"  occurs,  the  disk  may  have  a  write- 
protect  tab  missing  (8  inch  disks)  or  present  (5  1/4  inch  disks),  or  the 
operating  system  may  have  to  be  reset  (for  example,  using  control-G  for 
CP/M  systems).  For  these  or  any  other  errors,  refer  to  the  Operating 
System  or  TUR^O  PASCAL  Reference  Manuals. 


Attack  Assessment  Program — MODIFIED  (AAPMOD) 


AAPMOD  is  a  program  that  may  be  executed  on  a  mainframe  computer  in 
FORTRAN  5  or  on  a  microcomputer  in  TURBO  PASCAL*  See  the  hardware  and 
software  specifications  (page  A-6)  for  descriptions  of  system 
requirements.  For  either  system,  AAPMOD  requires  a  data  input  file  and 
room  for  an  output  file  to  be  created  and  written.  The  input  file  may 
be  created  with  the  AAP  series  of  database  generator  programs  (described 
elsewhere  in  this  appendix)  on  a  microcomputer.  The  file  also  may  be 
created  or  modified  with  any  system  editor,  as  long  as  the  input  format 
is  correct.  This  method  of  input  file  creation  is  not  recommended 
unless  the  user  is  intimately  familiar  with  the  structure  of  the  files 
and  how  AAPMOD  uses  them.  The  input  file  format  is  compatible  with 
either  the  mainframe  or  the  microcomputer  versions  of  AAPMOD;  hence  a 
file  existing  on  one  system  may  be  transferred  to  the  other  and 
successfully  executed. 

Mainframe  execution  speeds  generally  will  be  much  faster  than  the 
microcomputer;  however,  the  results  will  be  equally  valid  from  either 
system.  For  a  microcomputer  with  an  8087  math  coprocessor  and 
compatible  TURBO  PASCAL  software,  the  execution  speed  will  be  tolerable, 
taking  about  the  same  amount  of  central  processor  unit  (CPU)  minutes  to 
complete  as  the  CYBER  CDC  6600  takes  in  CPU  seconds.  Without  the  8087 
coprocessor,  the  execution  will  take  longer  by  a  factor  of  about  7  times 
that  of  the  8087-equipped  system  CPU  time. 

To  run  AAPMOD,  first  compile  the  source  code  if  an  executable  file 
is  not  available.  (For  TURBO  PASCAL,  refer  to  compilation  instructions, 
page  A~9.)  Then  be  sure  the  input  file  is  available  (loaded  on  disk, 


or  in  an  accessible  mainframe  computer  file).  Next,  command  AAPMOD,  and 
follow  the  directions  on  the  screen.  When  asked  for  the  input  file, 
type  the  filename  and  press  <RETURN>.  Then  provide  the  name  of  a  new, 
unused  file  for  the  program  output,  and  press  <RETURN>.  After  both 
names  have  been  entered,  AAPMOD  will  perform  airfield  attack  assessment 
and  write  the  results  onto  the  output  file  specified.  No  further  action 
is  required  until  the  program  ends.  Then,  to  see  the  results,  print  the 
output  file  on  132-column  paper,  or  view  the  output  file  on  a  132-column 


video  screen. 


VI.  Attack  Assessment  Program  Target  Database  Generator  (AAPTGT) 


This  program,  designed  for  a  microcomputer,  creates  the  target 
database  to  be  used  in  conjunction  with  programs  AAPWPN  and  AAPMSN  in 
order  to  create  an  input  file  for  AAPMOD.  There  are  two  modes  of 
execution:  new  file  creation,  or  modification  of  an  existing  file. 
When  creating  a  new  file,  AAPTGT  requires  the  entire  target  complex  to 
be  defined.  When  modifying  an  existing  database,  targets  may  be  added, 
inserted,  or  deleted,  and  other  data  also  may  be  changed. 

To  begin  the  program,  an  executable  version  must  exist  on  the  disk. 
If  there  is  no  executable  file  (AAPTGT.COM  or  AAPTGT.CMD),  one  must  be 
created  by  compiling  the  PASCAL  source  code.  Refer  to  the  discussion 
earlier  in  this  appendix  for  compilation  instructions.  Assuming  the 
executable  file  is  available,  type  the  command  AAPTGT  and  press  <RETURN> 
to  begin. 

Creating  a  New  Target  Database 

First  you  will  have  the  option  of  selecting  the  execution  mode  of 
creating  a  new  target  database  or  modifying  an  existing  one.  Select  the 
appropriate  choice  from  the  menu  and  press  <RETURN>.  The  following 
discussion  is  based  on  creating  a  new  database;  however,  for 
modification,  the  same  guidelines  apply. 

Next  you  will  be  asked  if  you  would  like  a  review  of  the  input 
prompts  and  options.  Until  you  are  familiar  with  them,  answer  yes  (type 
y  and  press  <RETURN>).  When  the  review  is  complete,  follow  the 
instructions  on  the  screen  requesting  you  provide  the  filename  of  the 
target  database  file. 
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The  first  screen  of  the  review  of  input  options  and  prompts  begins 
a  description  of  the  target  input  options  and  what  they  mean*  There 
are  two  ways  to  input  targets  in  this  program:  Target  center  and  end- 
midpoint  coordinates,  and  these  will  be  described  later.  The  units  of 
measurement  may  be  expressed  in  feet,  meters,  or  any  other  units  you 
desire,  but  once  you  have  chosen  a  unit,  stay  with  the  same  unit 
throughout  the  remainder  of  the  programs.  The  coordinate  system  is  a 
positive  right-hand,  rectangular  coordinate  system,  with  an  origin  of 
your  choice.  A  useful  origin  is  the  center  of  the  main  runway,  since  it 
makes  the  runway  definition  simple.  Then,  target  locations  are  entered 


by  their  X  and  Y  coordinates  with  reference  to  the  chosen  origin.  The 
axis  is  defined  by  the  positive  X-axis  as  zero  degrees.  The  axis 
measurement  increases  from  0  to  360  degrees  as  you  move  counter¬ 
clockwise  from  the  X-axis.  When  entering  the  targets,  their  size  must 
be  specified.  Be  sure  to  specify  the  smaller  dimension  as  the  width, 
and  the  longer  one  as  the  length.  . 

For  target  center  coordinates,  specify  the  center  of  the  target  in 

X-Y  coordinates  with  respect  to  the  origin.  For  end-midpoint 

•  * 

coordinates,  you  enter  the  midpoint  coordinates  of  the  shorter  dimension 
(width)  ends  of  the  target.  For  a  runway,  for  example,  you  would  enter 
the  midpoints  of  the  runway  ends.  It  is  important  to  enter  the 
midpoints  in  the  correct  sequence.  The  program  prompts  for  the  X  and  Y 
coordinates  of  the  leftmost  short  dimension.  In  this  case,  leftmost 
assumes  you  are  viewing  the  target  complex  with  the  positive  X-axis 
pointing  to  the  right,  and  therefore,  the  positive  Y-axis  pointing 
straight  up.  The  program  also  asks  for  the  X  and  Y  coordinates  of  the 
opposite  ends.  In  case  there  are  no  leftmost  ends,  then  the 
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X-coordinates  of  both  ends  are  the  same  and  XI  =  X2.  In  this  case,  when 
entering  the  Y-coordinates,  enter  the  smallest  (bottom-most)  value 
first.  Based  on  end-midpoint  entries,  AAPTGT  calculates  the  equivalent 
X-Y  coordinates,  axis  orientation,  and  target  length.  You  must  input 
the  target  width. 

If  the  length  you  enter  or  AAPTGT  calculates  is  smaller  than  the 
width  you  specify,  the  program  will  display  an  error  message  and  repeat 
the  input  sequence  for  target  location  and  size.  Once  the  length  and 
width  information  is  correct,  AAPTGT  will  check  pavement  targets  to 
determine  if  the  width  is  larger  than  899  (feet,  meters,  or  whatever 
units  you  are  using).  If  larger  than  899,  a  message  may  appear  on  the 
screen  indicating  a  flag  is  set.  This  flag  will  be  set  upon  the  first 
occurrence  of  a  pavement  width  greater  than  899  and  will  remain 
unchanged  as  long  as  any  pavement  in  the  database  is  wider  than  899. 
The  flag  enables  or  suppresses  AAPMOD  execution  of  routine  OVLAP.  This 
routine  searches  for  overlapping  areas  of  craters  and  adjusts  the 
damaged  area  accordingly.  For  wide  targets,  the  routine  takes 
excessively  long  to  execute,  and  therefore  is  suppressed  by  setting  the 
flag.  You  have  no  control  over  this  flag  in  program  AAPTGT,  but  you  may 
override  the  flag  when  building  the  final  input  file  for  AAPMOD  using 
program  AAPMSN. 

AAPTGT  treats  each  target  as  one  of  2  typos;  a  pavement  or  a 
building  (non-pavement).  A  pavement  may  be  a  runway  or  a  taxiway.  A 
building  is  any  other  kind  of  target.  To  each  target,  a  hardness  code 
must  be  assigned.  The  range  of  hardness  codes  that  may  be  assigned  is 
from  1  to  11.  You  must  determine  how  many  different  hardness  codes  you 
want  to  assign  before  entering  target  data.  A  hardness  code  determines 


what  level  of  damage  a  target  will  sustain  from  a  particular  weapon 
type.  For  example,  a  bomb  would  cause  a  larger  crater  in  a  soft  asphalt 
runway  than  in  a  hardened  reinforced  concrete  runway  and  perhaps  more 
damage  to  the  taxiways  than  either  of  the  runways.  If  your  target 
complex  had  these  two  runways  and  taxiway  surfaces  of  uniform  hardness, 
you  would  want  3  different  hardness  codes  for  the  pavements  and 
additional  hardness  codes  for  other  targets  as  desired. 

Each  target  must  be  assigned  a  group  identifier,  ranging  from  1  to 
15.  This  will  not  affect  the  results  in  terms  of  damage  sustained,  but 
serves  to  group  statistics  in  a  more  convenient  way  for  the  output  of 
results.  For  example,  you  may  want  to  group  each  runway  separately,  all 
taxiways  together,  and  all  aircraft  shelters  together.  The  output  will 
calculate  individual  reports  of  expected  hits  per  target  and  also  will 
give  expected  hits  per  target  group. 

For  the  targets,  you  may  specify  up  to  3  runways,  30  pavement 
targets  (runways  plus  taxiways),  and  112  total  targets  (runways, 
taxiways,  and  buildings).  You  must  enter  runways  first,  followed  by 
taxiways,  and  then  all  remaining  targets.  If  you  do  not  follow  this 
sequence,  the  program  will  reject  your  attempts  to  enter  incorrect  data 
and  display  appropriate  error  messages  guiding  you  to  correct  the 
mistake.  If  you  find  you  cannot  enter  a  target  because  of  the  incorrect 
sequence,  you  can  save  the  file  and  edit  it  later  in  the  modification 
mode,  or  start  over  from  the  beginning, 

When  entering  runways,  you  must  specify  the  minimum  clear  length 
and  width  required  for  takeoff  and  landing  operations,  AAPMOD  uses  this 
information  to  determine  if  a  runway  is  damaged  enough  to  prevent 
takeoffs  and  landings  based  on  the  distribution  of  craters.  It  will 


search  the  damaged  runway  surface  for  an  undamaged  portion  corresponding 
to  the  specified  minimum  width  and  length  to  determine  runway  kill. 

If  a  major  taxiway  couid  be  used  for  TOL  operations  and  you  want  to 
calculate  results  accordingly,  enter  the  taxiway  as  one  of  the  3 
permitted  TOL  surfaces.  Otherwise,  a  taxiway  is  entered  as  a  pavement 
with  a  minimum  clear  length  for  takeoff  and  landing  operations  of  2ero. 
In  this  case,  the  minimum  width  specified  for  taxi  operations  will  be 
used  to  determine  if  a  taxi way  is  killed.  The  path  for  taxiing  will  not 
necessarily  lie  in  a  straight  line,  since  taxiing  aircraft  may  maneuver 
around  craters  (unlike  aircraft  taking  off  or  landing).  Note  that 
AAPMOD  will  still  evaluate  runways  that  are  killed  (in  terms  of  takeoff 
and  landing  operations)  to  see  whether  they  may  be  used  for  taxiing  to 
other  runways  that  are  not  yet  killed. 

All  other  targets  are  called  buildings,  or  non-pavements.  They 
must  be  assigned  separate  hardness  codes  from  the  pavement  targets,  even 
if  the  same  level  of  damage  would  be  inflicted  by  a  weapon. 

After  each  target  is  entered,  you  are  asked  if  you  want  to  quit. 
Answering  no  causes  the  program  to  prompt  for  the  next  target  input. 
Answering  yes  causes  the  program  to  move  to  the  next  set  of  questions 
concerning  repair  capability.  First  you  are  asked  how  many  patches  of 
pavements  resources  will  allow.  Then  you  are  asked  to  provide  the 
priority  for  repairing  the  pavements.  The  repair  information  is  needed 
for  analysis  of  multiple  attacks,  but  not  in  this  particular 
implementation  of  AAPMOD.  While  the  choice  of  specific  numbers  is 
completely  arbitrary,  you  must  provide  entries  for  the  database  to  be 
completed  successfully* 
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Following  these  last  two  questions,  the  target  database  is 
complete,  AAPTGT  then  creates  the  new  target  file,  and  writes  the  data 
to  disk.  Then  the  program  ends. 


Modifying  a  Target  Database 


You  can  use  AAPTGT  to  modify  existing  target  bases  by  selecting  the 
appropriate  response  ;  rom  the  menu  when  first  executing  the  program. 
The  following  discussio  t  pertains  to  the  modification  mode  of  program 
AAPTGT,  If  you  are  unfamiliar  with  the  structure  of  the  target 
database,  you  should  review  the  procedures  describing  how  to  create  a 
new  database.  Subsequent  discussion  assumes  you  have  some  working 
knowledge  of  the  prompts  and  inputs  described  in  the  previous  section  of 
this  program  description.  When  you  begin  program  AAPTGT  and  select  the 
modification  mode,  you  may  review  these  prompts  and  inputs  in  the  same 
manner  as  the  creation  mode. 

The  file  you  want  to  modify  must  be  available  on  a  diskette,  but 
does  not  have  to  be  on  the  same  pne  as  program  AAPTGT.  You  may  specify 
the  disk  drive  when  you  enter  the  filename.  AAPTGT  will  attempt  to  read 
the  file  you  specify.  If  an  error  message  similar  to  ”1/0  error  10, 
PC*1234,  Program  aborted"  appears  on  the  screen,  there  is  a  format  error 
in  the  input  file  or  you  did  not  specify  the  correct  file*  In  either 
case,  AAPTGT  will  not  be  able  to  process  that  particular  file. 

In  the  modification  mode,  the  current  value  of  the  minimum  width 
for  taxi  is  shown,  and  you  may  update  it  if  desired.  Then  the  hardness 
codes  are  displayed,  and  you  may  change  these,  too.  Next  you  may  choose 
from  S  options  on  a  menu  for  editing  the  target  element  data:  you  may 
delete  a  target  of  your  choice,  add  a  new  target  to  the  end  of  the  list, 


insert  targets  into  the  list,  review  the  target  matrix,  and  finish 
editing.  The  insert  mode  is  especially  useful  for  inserting  pavements 
in  the  correct  sequence.  Remember,  the  sequence  of  the  target  database 
must  be  runways  first  (a  maximum  of  3),  followed  by  taxiways  (a  maximum 
of  30  minus  the  number  of  runways),  and  all  other  targets  last  (maximum 
of  112  targets  total). 

The  options  for  editing  a  target  database  are  presented  for  your 
choice  from  an  on-screen  menu.  The  following  are  descriptions  of  the 
various  options.  For  specific  instructions  on  how  to  enter  data,  please 
refer  to  the  previous  section,  "Creating  a  New  Target  Database." 

Delete  a  Target .  To  preclude  deleting  a  target  mistakenly,  the 
program  will  accept  your  request  to  delete  a  target  and  ask  that  you 
confirm  the  target  number  you  entered.  Once  you  confirm  the  deletion, 
the  target  will  be  removed,  and  all  other  targets  with  a  higher  position 
number  in  the  matrix  will  be  shifted  to  fill  in  the  hole  created  by  the 
deletion.  If  the  target  you  delete  happens  to  be  the  lost  pavement  with 
a  width  greater  than  899,  a  message  will  appear  on  the  scraen  advising 
you  that  a  flag  is  reset.  This  is  the  flog  that  enables  or  suppresses 
AAPMOD  execution  of  routine  OVLAP,  described  in  the  database  creation 
mode  section.  The  program  will  advise  whether  the  target  in  fact  was 
deleted  or  not,  and  you  also  may  confirm  this  by  a  review  of  the  target 
matrix  when  the  program  returns  you  to  the  menu.  If  you  delete  all  of 
the  targets,  the  program  automatically  places  you  in  the  "Add  a  target" 
mode,  since  you  must  define  at  least  one  target  in  order  to  run  programs 
AAPMSN  and  AAPMOD. 

Arid  a  Target .  You  may  add  targets  to  the  end  of  the  target  matrix 
as  long  as  there  are  less  than  112  targets  currently  defined;  targets 


may  .  be  deleted  to  make  room  for  a  subsequent  addition,  if  necessary , 
.Adding  a  target  means  that  the  new  target  definition  will  bem  added  to 
.  the  .end  of  the  matrix  as  it. currently  exists.  For  example,  if  there  are 
4  targe cs  in  the  matrix,  adding  a  new  target  will  cause  the  new  target 
to  be  placed  in  position  number  5.  If  112  targets  already  are  defined, 
the  program  will  issue  an  error  message  and  return  you  to  the  menu. 
Other  error  messages  will  be  displayed  if  you  attempt  to  enter  a  target 
out  of  the  correct  sequence,  define  more  than  3  runways;  or  enter  more 
than  30  pavements.  Otherwise,  you  will  be  able  to  load  the  new  target 
definition  in .  the  same  manner  as  in  the  creation  mode  of  the  program. 
After  the  target  is  entered,  the  program  will  return  you  to  the  menu. 

Insert  a  Target.  You  may  insert  a  target  anywhere  ir,  the  target 
matrix  as  long  as  there  are  less  than  112  targets  currently  defined} 
targets  may  be  deleted  to  make  room  for  a  subsequent  insertion,  if 
necessary.  Inserting  a  target  means  that  the  new  target  definition  will 
'  be  inserted  into  the  table  at  the  position  you  specify,  displacing  the 
target  in  that  position.  The  displaced  target,  along  with  targets 
following  the  displaced  target,  are  shifted  up  in  position  number  to 
make  room  for  the  new  target.  For  example,  if  there  are  5  targets,  and 
you  insert  at  position  2,  target  #  1  will  remain  unchanged  in  position, 
the  new  target  will  become  target  #  2,  and  old  targets  #  2  through  5 
will  become  targets  #  3  through  6«  If  you  try  to  insert  a  target  at  the 
.  end  of  the  target  matrix  where  no  target  currently  exists,  the  program 
automatically  adds  the  target,  effectively  changing  the  option  to  "Add  a 
target.'*  If  112  targets  already  are  defined,  the  program  will  issue  an 
error  message  and  return  you  to  the  menu.  Other  error  messages  will  be 
displayed  if  you  attempt  to  insert  a  target  out  of  the  correct  sequence, 
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define  more  than  3  runways,  or  enter  more  than  30  pavements*  Otherwise, 
you  will  be  able  to  load  the  new  target  definition  in  the  same  manner  as 
in  the  creation  mode  of  the  program.  After  the  target  is  entered,  the 
program  will  return  you  to  the  menu. 

Review  the  Target  Matrix.  When  you  select  this  option,  the 
contents  of  the  target  matrix  will  be  displayed  on  the  screen,  up  to  10 
targets  at  a  time.  To  continue  the  display,  simply  press  any  key.  Note 
the  abbreviations  under  TGT  TYPE  (target  type):  TOL  is  a  takeoff  and 
landing  pavement,  TWY  is  e  taxiway  pavement,  and  BLDG  is  a  building  or 
non-pavement,  target.  After  all  targets  have  been  displayed,  the  program 
returns  you  to  the  menu. 

Finish  &  Save  the  New  Database.  When  you  are  finished  with  the 
review  and  modification  of  the  target  matrix,  enter  this  choice  from  the 
menu.  You  will  then  have  an  opportunity  to  cnange  the  crater  repair 
data.  Finally,  the  program  will  create  the  new  file  and  save  the  old 
file.  The  original  (old)  version  of  the  file  named  FILENAME.XXX  will  be 
renamed  FILENAME. BAK  as  a  backup.  The  new  version  will  have  the  same 
name  as  the  original  file  before  editing.  At  this  point,  the  program 
ends.  If  subsequently  you  should  want  to  edit  the  backup  file,  you 
first  will  have  to  rename  it  with  some  other  name,  since  the  AAP 
programs  will  not  accept  a  file  with  the  extension  .BAK.  Refer  to  the 
Operating  System  Manual  for  the  computer  you  are  using  for  instructions 
on  how  to  rename  the  file  (most  likely  the  REN  command). 


VII.  Attack  Assessment  Program  Weapons  and 
Attack  Pattern  Database  Generator  (AAPWPN) 

This  program,  designed  for  a  microcomputer,  creates  the  weapon  and 
attack  pattern  database  to  be  used  in  conjunction  with  programs  AAPTGT 
and  AAPMSN  in  order  to  create  an  input  file  for  AAPMOD.  Thore  are  two 
modes  of  execution:  new  file  creation,  or  modification  of  an  existing 
file.  When  creating  a  new  file,  AAPWPN  requires  all  weapons  and  attack 
pattern  information  to  be  defined.  When  modifying  an  existing  database, 
data  may  to  added,  inserted,  or  deleted. 

To  begin  the  program,  an  executable  version  must  exist  on  the  disk. 
If  there  i3  no  executable  file  (MPWPN.COM  or  AAPWPN ,CMD),  oue  must  be 
created  by  compiling  the  PASCAL  source  code.  Refer  to  the  discussion 
earlier  in  this  appendix  for  compilation  instructions.  Assuming  the 
executable  file  is  available,  type  the  command  AAPWPN  and  press  <RFTUkN> 
to  begin. 

Creating  a  New  Weapons  and  Attack  Pattern  Database 

First  you  will  have  the  option  of  selecting  the  execution  mode: 
creating  a  new  target  database  or  modifying  an  existing  one.  Select  the 
appropriate  choice  from  the  menu  and  press  <RETURN>.  Then  follow  the 
instructions  on  the  screeu  requesting  you  provide  the  filename  ot  the 
weapons  and  attack  pattern  database  file.  Tho  following  discussion  is 
based  on  creating  a  new  database;  however  for  modification,  similar 
guidelines  apply. 

At  this  point  in  the  program,  you  will  begin  building  the  database* 
The  following  describee  information  you  will  need  to  enter.  Much  of 
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this  information  is  summarized  and  displayed  on  the  video  screen  when 
you  execute  program  AAPWPN.  ' 

The  program  is  split  into  2  major  sections:  building  the  weapons 
database  and  building  the  attack  pattern  database.  The  first  section 
builds  the  weapons  database.  AAPMQD  assesses  damage  based  on  sizes  of 
craters  caused  by  weapons  that  hit  targets  specified  in  the  carget 
database.  AAPMOD  uses  an  array,  called  the  crater  table,  to  store  this 
crater  size  information.  The  first  part  of  program  AAPWPN  guides  you 
while  you  build  this  array. 

The  Weapons  Latabase.  The  3  dimensions  (i,  j,  and  k)  of  the  crater 
table  array  comprising  the  weapons  database  are  as  follows: 

i:  Hardness  Gode,  Range  l  to  11.  This  is  a  defined  level  of 
target  hardness,  thickness,  type  of  material,  and  similar  factors  all 
combined  into  one,  categorical  hardness  code.  For  each  hardness  code 
yon  defined  in  tho  target  database,  you  must  enter  crater  sizes 
corresponding  to  the  warhead  types  and  possible  Interactions  described 
below. 

When  creating  a  new  database,  you  must  enter  the  hardness  code 
information  corresponding  to  a  specific  existing  target  database*  If 
you  do  not  know  this  information,  execute  program  AAPTGT  in  the 
modification  mode  and  specify  the  existing  target  database  filename. 
Follow  through  prog re-  AAPTGT  until  the  hardness  information  is 
displayed,  record  this  information  for  input  to  AAPWPN,  and  abort 
program  AAPTGT  by  pressing  eontrol~C  (hold  down  the  < CONTROLS  key  while 
simultaneously  depressing  the  letter  C).  Then  execute  program  AAPWPN. 

AAPWPN  prompts  you  for  the  total  number  of  hardness  codes 
entered  in  program  AAPTGT,  then  the  number  of  hardness  codes 


corresponding  to  pavements.  A  summary  of  this  information  is  displayed 
on  the  screen,  and  it  should  match  the  same  display  given  in  program 
AAPTGT.  If  this  information  is  incorrect,  you  may  reenter  the  data 
until  the  display  is  correct.  Be  sure  the  hardness  information  is 
accurate  when  creating  a  new  weapons  database,  because  you  cannot 
correct  this  particular  error  later  in  the  modification  mode. 

It  A  Defined  Type  of  Warhead.  Range  1  to  6.  Example:  Mk-82 
500  pound  general-purpose  bomb  is  one  possible  type  of  warhead.  An  AGM- 
65B  Maverick  Missile  is  another  possible  warhead.  A  minimum  of  1  up  to 
a  maximum  of  6  different  crater  size  sets  may  be  defined.  Note  that 
AAPMOD  will  not  compute  crater  sizes;  you  load  this  information  here, 

.  j 

using  program  AAPWPN,  If  you  wish  to  load  different  crater  information 
for  one  particular  kind  of  warhead  under  different  delivery  conditions, 
you  must  consider  each  set  of  data  as  a  separately  defined  warhead.  For 
example,  you  may  want  to  define  crater  sizes  for  the  main  runway  at  Base 
X:  j  -  1,  Mk-82  bomb  delivery  from  an  F-4  Phantom  at  500  knots,  20 
degrees  of  dive  and,  for  j  *  2*  delivery  from  an  A-1Q  Thunderbolt  II  at 
325  knuts,  10  degrees  of  dive. 

When  creating  a  new  database,  you  are  asked  to  enter  the 
number  of  different  types  of  warheads.  Enter  the  number  of  warheads  you 
wish  to  define  for  this  database.  Note  that  you  cannot  later  define 
attack  patterns  for  which  there  are  no  defined  weapons.  Therefore,  be 
sure  to  define  all  weapons  you  will  need  for  building  the  attack  pattern 
database  in  section  2,  of  the  program. 

k^  Interaction  1  or  Interaction  2  (k  »  1  and  k  »  2).  There 
are  actually  4  interactions:  .  Interactions  1  and  2  for  targets  defined 
as  pavements,  and  Interactions  1  and  2  for  targets  defined  as 


non-pavements  (buildings)*  Only  one  set  of  interactions  is  entered  into 
the  array,  and  this  is  determined  by  the  hardness  code  corresponding  to 
a  pavement  or  non-pavement  target,  AAPWPN  automatically  prompts  for  the 
correct  interaction,  but  it  is  important  to  recognize  what  the  different 
combinations  represent.  Since  all  interactions  involve  crater  sizes, 
the  following  first  describes  how  AAPMOD  handles  craters  an>i  then 
discusses  the  different  interactions  in  detail. 

AAPMOD  evaluates  target  damage  by  comparing  the  locations  of 
targets  to  the  locations  and  crater  sizes  of  weapon  impacts.  However, 
AAPMOD  uses  square  craters  for  its  computations,  because  this  makes  the 
algorithm  for  evaluation  of  pavement  kill  status  more  efficient. 
Miglin,  in  his  thesis  on  the  FORTRAN  5  version  of  AAPMOD,  shows  how  use 
of  square  craters  is  a  good  approximation,  where  errors  would  tend  to 
cancel  each  other  over  the  course  of  the  program.  Because  of  AAPMOD' s 
use  of  square  craters,  you  have  a  choice  of  how  you  will  enter  crater 
size  data:  square  craters  or  circular  craters.  If  you  enter  square 
craters,  enter  one  half  of  the  length  of  the  side  of  the  square.  If  you 
enter  circular  craters,  enter  the  radius;  AAPWPN  will  calculate  the  area 
of  the  circular  crater  and  convert  this  to  an  equivalent  area  square 
crater  for  the  database.  Important:  Remember  to  use  the  same  units  of 
dimension  (feet,  meters,  etc)  you  used  in  defining  the  target  database. 

Pavement  Interactions,  If  the  target  is  a  pavement  (taxiway 
or  runway),  the  important  piece  of  information  is  the  damaged  pavement 
surface  area  which  effectively  denies  use  of  that  portion  of  surface  for 
aircraft  use.  When  requesting  you  to  load  weapons  interaction  data, 
AAPWPN  starts  with  the  pavement  codes  (hardness  codes  associated  with 
pavements).  This  information  is  entered  as  follows: 


Interaction  1 .  Interaction  1  corresponds  to  the  crater 


size  which  would  disrupt  takeoff  and  landing  operations.  This  includes 
the  physical  size  of  the  crater  hole  and  the  additional  pavement  surface 
around  the  hole  where  any  cracks,  buckling,  and  rubble  would  preclude 
high  speed  takeoff  and  landing  operations.  AAPWPN  calls  this 
interaction  "Deny-TOL  size.”  If  the  pavement  code  is  associated  with  a 
taxiway  only,  the  "Deny-TOL  size"  would  not  be  used;  however,  subsequent 
modification  of  the  target  database  may  need  the  same  hardness  code  for 
a  takeoff  surface.  Therefore,  you  should  provide  a  correct  crater  size 
for  takeoff  and  landing  considerations. 

Interaction  2.  Interaction  2  corresponds  to  the  crater 
size  which  would  disrupt  taxi  operations.  This  includes  the  physical 
size  of  the  crater  hole,  but  little  additional  pavement,  since  aircraft 
can  taxi  slowly  over  surfaces  with  minor  cracks,  buckles,  and  deposits 
of  rubble.  Note  that  for  pavements,  the  crater  size  for  interaction  1 
normally  will  be  larger  than  that  of  interaction  2.  AAPWPN  calls  this 
interaction  "Deny-taxi  size."  Since  all  pavements  are  considered  taxi- 
capable,  correct  data  must  be  entered  for  all  of  the  pavement  hardness 
codes. 

Buildings  (Non-Pavements).  After  all  of  the  pavement  hardness 
codes  have  been  processed,  AAPWPN  requests  data  for  the  hardness  codes 
associated  with  buildings  (non-pavements).  If  the  target  is  a  building, 
the  important  piece  of  information  is  the  damaged  structure  area  which 
effectively  denies  use  of  that  portion  of  the  structure.  This 
information  is  entered  as  follows: 

Interaction  1.  Interaction  1  corresponds  to  the  crater 
size  which  would  result  from  a  target  near-miss.  In  other  words,  if  the 
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bomb  missed  the  structure,  but  landed  nearby,  this  is  the  size  of  the 
crater  that  would  result.  AAPWPN  calls  this  interaction  "Near-miss 
size." 

Interaction  2.  Interaction  2  corresponds  to  the  crater 
size  which  would  result  from  a  direct  hit  on  the  target.  Note  that  for 
non-pavements,  the  crater  size  for  interaction  1  normally  will  be 
smaller  than  that  of  interaction  2.  AAPWPN  cails  this  interaction 
"Direct  hit  size.” 

The  Attack  Pattern  Database.  The  second  major  section  of  program 
AAPWPN  guides  you  while  you  build  the  attack  pattern  database.  This 
portion  of  the  program  begins  by  asking  you  how  many  patterns  you  wish 
to  define.  You  must  define  at  least  1  pattern  and  may  define  up  to  12. 

Next  a  menu  is  presented  on  the  screen,  giving  a  choice  of  general 
purpose  weapons,  cluster  bomblet  units  (CBU),  or  guided  munitions. 
There  are  2  choices  for  CBU  based  on  the  footprint  of  bomblets  that  will 
occur:  rectangular,  with  bomblets  impacting  uniformly  over  the 
rectangular  area  and  no  voids  in  coverage;  or  elliptical,  with  bomblets 
uniformly  distributed  over  the  elliptical  area  except  that  voids  in 

t  '* 

coverage  are  possible.  You  will  have  to  specify  the  dimensions  of  the 
footprint  and  additionally,  for  the  elliptical  CBU  footprint,  the  size 
of  the  voids. 

A  weapons  pattern  can  be  considered  as  the  end  result  of  a  weapons 
delivery  pass  producing  a  pattern  of  weapon  impacts  on  the  ground.  For 
each  pattern  definition,  you  must  specify  how  many  weapons  will  be 
delivered  per  pass  (from  1  to  12  weapons).  Exception:  for  guided 
weapons,  the  program  defaults  to  1  weapon  per  pass. 


Next  you  must  enter  the  reliability  (probability  of  functioning)  of 
the  weapon/ cannister  fuze,  taking  into  consideration  all  factors  such  as 
proper  fuze  settings,  arming,  cockpit  switch  settings,  weapons  release 
parameters,  and  weapon  impact  angle.  This  should  not  include  the 
reliability  of  individual  bomblets  inside  the  cannister  of  a  cluster 
munition;  you  will  enter  this  information  later,  if  applicable. 

The  program  prompts  for  the  weapon's  crater  table  index.  Enter  the 
warhead  index  corresponding  to  the  crater  table  dimension  j  discussed  in 
the  first  section  of  the  AAPWPN  program  description.  In  other  words,  of 
the  weapons  already  defined  in  the  database,  identify  which  weapon  is 
being  employed. 

The  next  set  of  data  is  based  on  which  one  of  the  weapons 
descriptions  you  chose  from  the  menu.  For  unguided  munitions  (general 
purpose  and  CBU),  you  must  enter  the  delivery  and  ballistic  range  and 
deflection  errors  probable  (REP  and  DEP),  using  the  same  dimensional 
units  (feet,  meters,  etc)  as  the  crater  sizes  and  target  coordinate 
system.  Range  errors  lie  along  the  aircraft's  ground  track  while 
deflection  errors  are  referenced  perpendicular  to  the  ground  track.  The 
concept  of  REP  is  that  50X  of  the  range  errors  will  fall  within  the 
range  error  probable  distance,  and  similarly  for  DEP,  that  SOS  of  the 
deflection  errors  will  fall  within  the  deflection  error  probable 
distance.  For  circular  error  probable  (CEP),  CEP  is  merely  a 
simplifying  assumption  that  REP  and  DEP  are  the  same.  Enter  the  CEP 
value  for  both  REP  and  DEP  if  only  CEP  is  known. 

Ballistic  errors,  also  known  as  ballistic  dispersion,  include  the 
random  errors  induced  by  slight  differences  in  drag,  stability,  mass, 
bomb  rack  ejection  cartridges,  and  other  factors  for  a  particular  weapon 


type.  The  end  result  of  ballistic  error  is  an  impact  displacement  from 
the  actual  point  at  which  the  weapon  is  aimed  (the  aimpoint  based  on  an 
error-free  pipper).  The  delivery  error  includes  avionics  error,  aircrew 
error  in  releasing  the  weapon  at  the  wrong  time,  weather,  and  similar 
factors,  but  does  not  include  target  misidentification  (aiming  error). 
This  is  an  important  distinction;  AAPMOD  will  stochastically  determine 
aiming,  delivery,  and  ballistic  errors  as  follows:  The  aiming  error  is 
based  on  a  triangular  distribution  built  into  the  design  of  the  model. 
The  delivery  and  ballistic  errors  are  based  on  bivariate  normal 
distributions  with  the  parameters  you  will  enter  into  the  attack 
pattern  database. 

For  CBU  munitions,  further  information  is  required.  First  you  must 
specify  how  many  bomblets  each  CBU  cannister  contains*  Second,  give  the 
reliability  of  the  individual  bomblets,  expressed  as  a  probability  of 
proper  bomblet  fuze  functioning.  Third,  input  the  footprint  length  and 
width.  Hie  last  CBU  data  is  for  elliptical  footprints  only:  the  void 
length  and  width,  which  create  a  doughnut  shape  of  the  bomblet  area  of 
ground  coverage.  Remember  to  be  consistent  with  the  dimensional  units 
when  specifying  length  and  width. 

For  guided  munitions,  you  may  choose  the  form  of  input  for  errors 
as  REP/DEP  or  standard  deviation  (sigma),  REF  and  DEP  are  as  described 
previously  for  unguided  munitions.  Recall  that  if  you  wish  to  enter  a 
CEP,  enter  figures  based  on  CEP  *  REP  «  DEP.  Standard  deviation,  also 
known  as  sigma,  allows  you  to  input  the  errors  based  on  the  normal 
distribution  data  for  the  weapon,  if  available.  Instead  of  the  delivery 
and  ballistic  errors  for  unguided  munitions,  you  will  enter  guidance 
errors  for  guided  munitions.  There  are  3  categories  of  guidance  which 


you  must  consider:  optimal,  near-miss,  and  gross-error.  Specify  the 
optimal  errors  based  on  optimum  weapon  performance  (good  weather, 
properly  functioning  avionics,  and  weapon  release  parameters  well  within 
tolerance).  Specify  the  near-miss  errors  based  on  degraded  conditions 
(marginal  weather,  minor  avionics  malfunctions,  or  weapons  release  on 
the  edge  of  the  acceptable  weapons  envelope).  Specify  the  gross-error 
data  based  on  a  major  guidance  malfunction,  such  as  when  a  missile  goes 
ballistic  or  a  smart  weapon  loses  the  designator  signal. 

The  last  inputs  for  guided  munitions  are  probabilities  of  guidance. 
Enter  the  probability  that  the  weapon  will  encounter  optimum  guidance 
conditions*  Then  enter  the  cumulative  probability  that  the  weapon  will 
encounter  near-miss  or  optimum  guidance  conditions.  This  cumulative 
probability  will  be  the  same  as  [1  -  Pr( gross-error  conditions)],  and 
will  always  be  equal  to  or  greater  than  the  probability  of  optimum 
guidance  conditions  alone. 

AAPWPN  continues  to  loop  through  the  same  set  of  questions  for  each 
of  the  patterns  to  be  defined.  After  the  last  pattern  has  been  defined, 
the  file  is  written  to  disk  and  saved  with  the  file  name  specified  at 
the  start  of  program  execution.  Then  the  program  ends. 


Modifying  an  Existing  Database 


The  following  discussion  pertains  to  the  modification  mode  of 
program  AAPWPN.  If  you  are  unfamiliar  with  the  structure  of  the  weapons 
and  attack  pattern  databases,  you  should  review  the  procedures 
describing  how  to  create  a  new  database.  Subsequent  discussion  assumes 
you  have  some  working  knowledge  of  the  prompts  and  inputs  described  in 
the  previous  section  of  this  appendix. 


The  file  you  want  to  modify  must  be  available  on  a  diskette,  but 
does  not  have  to  be  on  the  same  one  as  program  AAPWPN.  You  may  specify 
the  disk  drive  when  you  enter  the  filename.  AAPWPN  will  attempt  to  read 


the  file  you  specify.  If  an  error  message  similar  to  ”1/0  error  10, 
P01234,  Program  aborted”  appears  on  the  screen,  there  is  a  format  error 
in  the  input  file  or  you  did  not  specify  the  correct  file.  In  either 
case,  AAPWPN  will  not  be  able  to  process  that  particular  file. 

After  AAPWPN  successfully  reads  the  existing  database  you  wish  to 
modify,  the  program  begins  with  a  display  of  the  target  hardness 
categories.  There  is  no  way  to  change  this  data;  the  information  is 
P  rz  for  your  review.  If  you  discover  an  error  in  the  hardness 
codes,  you  will  have  to  correct  the  problem  by  executing  program  AAPWPN 
in  the  database  creation  mode.  Note  that  target  hardness  information  is 
based  directly  on  a  target  file.  Weapons  must  be  defined  with  reference 
to  known  targets,  and  the  entire  crater  table  is  designed  with  the 
hardness  codes  as  one  of  the  dimensions  (i)  of  the  3-dimension  crater 
table  (i,  j,  k). 

The  modification  mode,  like  the  creation  mode,  has  two  program 
sections:  modifying  the  weapons  database  and  modifying  the  attack 
pattern  database.  Anytime  during  the  program  you  may  abort  the 
editing  session,  thus  discarding  any  current  changes,  but  saving  the 
input  file  completely  unchanged  (including  the  filename).  To  abort  an 
editing  session,  press  control-C  (hold  the  <C0NTR0L>  key  depressed  while 
simultaneously  typing  the  letter  C).  If  you  run  the  modification  mode 
until  the  program  terminates  normally,  your  newly  edited  version  of  the 
database  will  be  stored  in  the  disk  file  with  the  same  name  as  the  old 
file  you  originally  specified.  Additionally,  the  old  version  of  the 
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database  also  will  be  saved  with  a  filename  in  the  form  FILENAME, BAK  to 
help  in  case  of  an  editing  error. 

Throughout  the  program  you  will  have  numerous  chances  to  review  the 
weapons  and  pattern  information,  presented  in  a  compact,  self- 
documenting  display  on  the  video  screen.  You  should  frequently  review 
these  weapons  and  patterns  matrices  to  be  sure  the  changes  you  make  are 
reflected  accurately.  Once  you  are  familiar  with  their  design,  you  will 
gain  valuable  insight  into  the  structure  of  the  database  and  become 
increasingly  proficient  at  designing  your  model. 

The  Weapons  Section.  The  weapons  section  begins  with  a  menu  of  7 
choices.  You  may  delete,  add,  insert  or  redefine  a  weapons  description; 
review  the  weapons  and  attack  pattern  matrices;  or  exit  the  weapons 
section  and  move  on  to  the  attack  pattern  section.  Once  you  leave  the 
weapons  section,  you  may  not  return  without  ending  the  program  and 
restarting.  Following  are  descriptions  of  the  menu  choices. 

Delete  a  Weapon  and  its  Corresponding  Patterns.  This  is  the 
most  complicated  of  the  weapons  modification  processes,  because  the 
existing  pattern  matrix  is  based  on  the  defined  weapons  in  the  crater 
table.  If  you  delete  a  weapon  which  has  been  referenced  by  a  pattern, 
that  pattern  is  no  longer  valid,  and  so  it,  too,  will  be  deleted 
automatically.  Note  that  if  you  delete  all  of  the  weapons,  you  also 
will  deplete  the  pattern  matrix*  To  preclude  your  accidental  deletion 
of  weapons  and  patterns,  the  program  will  accept  your  request  to  delete 
a  weapon  and  print  pattern  information  on  the  screen*  If  any  patterns 
are  listed,  they  are  subject  to  deletion  along  with  the  weapon;  however, 
you  will  be  given  a  chance  to  review  the  pattern  matrix  to  be  sure  of 
your  decision,  then  asked  to  confirm  the  deletion.  The  program  then 
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will  advise  whether  the  weapon  was  in  fact  deleted  or  not,  and  you  also 
may  confirm  this  by  a  review  of  the  matrices  when  the  program  returns 
you  to  the  menu. 

Another  factor  involved  in  deleting  weapons  from  the  crater 
table:  the  pattern  matrix  contains  references,  by  position,  to  the 
weapons  in  the  crater  table.  If  you  delete  a  weapon,  all  other  weapons 
with  a  higher  position  number  in  the  table  will  be  shifted  to  fill  in 
the  hole  created  by  the  deletion.  AAPWPN  automatically  adjusts  the 
pattern  matrix  references  so  that  the  remaining  patterns  still  agree 
with  the  weapons  for  which  they  were  defined. 

It  is  possible  to  delete  all  of  the  weapons  and  patterns  from 
the  database.  In  this  case,  the  program  automatically  places  you  in  the 
"Add  a  weapon"  mode,  since  patterns  cannot  be  defined  without  first 
defining  weapons.  If  this  situation  occurs  accidentally,  you  should 
abort  the  program  by  pressing  control-C,  and  your  original  database  file 
will  not  be  disturbed.  Then  restart  AAPWPN, 

Add  a  Weapon.  You  may  add  weapons  to  the  end  of  the  crater 
table  as  long  as  there  are  less  than  6  weapons  currently  defined} 
weapons  may  be  deleted  to  make  room  for  a  subsequent  addition,  if 
necessary.  Adding  a  weapon  means  that  the  new  weapon  definition  will  be 
added  to  the  end  of  the  table  a**  it  currently  exists.  For  example,  if 
there  are  A  weapons  in  the  table,  adding  a  new  weapon  will  cause  the  new 
weapon  to  be  placed  in  position  number  f>*  If  6  weapons  already  are 
defined,  the  program  will  issue  an  error  message  and  return  you  to  the 
weapons  menu.  Otherwise,  you  will  be  able  to  load  the  new  weapon 
definition  in  the  same  manner  as  in  the  creation  mode  of  the  program. 
After  the  weapon  is  entered,  the  program  will  return  you  to  the  menu. 


Insert  a  Weapon .  You  may  insert  a  weapon  anywhere  in  the 
crater  table  as  long  as  there  are  less  than  6  weapons  currently  defined; 
weapons  may  be  deleted  to  make  room  for  a  subsequent  insertion,  if 
necessary.  Inserting  a  weapon  means  that  the  new  weapon  definition  will 
be  inserted  into  the  table  at  the  position  you  specify,  displacing  the 
weapon  in  that  position.  The  displaced  weapon,  along  with  the  weapons 
following  the  displaced  weapon,  are  shifted  up  in  position  number  to 
make  room  for  the  new  weapon.  For  example,  if  there  are  5  weapons,  and 
you  insert  at  position  2,  weapon  #  1  will  remain  unchanged  in  position, 
the  new  weapon  will  become  weapon  #  2,  and  old  weapons  #  2  through  5 
will  become  weapons  #  3  through  6.  If  you  try  to  insert  a  weapon  at  the 
end  of  the  crater  table  where  no  weapon  currently  exists,  the  program 
automatically  adds  the  weapon,  effectively  changing  the  option  to  "Add  a 
weapon."  If  6  weapons  already  are  defined,  the  program  will  issue  an 
error  message  and  return  you  to  the  menu.  Otherwise,  you  will  be  able 
to  load  the  new  weapon  definition  in  the  same  manner  as  in  the  creation 
mode  of  the  program.  After  the  weapon  is  entered,  the  program  will 
return  you  to  the  menu. 

Another  factor  involved  in  inserting  weapons  into  the  crater 
table;  the  pattern  matrix  contains  references,  by  position,  to  the 
weapons  in  the  crater  table.  If  you  insert  a  weapon,  all  other  weapons 
with  a  higher  position  number  in  the  table  will  be  shifted  as  described 
in  the  previous  paragraph.  AAPWPN  automatically  adjusts  the  pattern 
matrix  references  so  that  the  remaining  patterns  still  agree  with  the 
weapons  for  which  they  were  defined. 

Redefine  a  Weapon.  The  purpose  of  redefining  a  weapon  is  to 
allow  the  weapon  to  be  redefined  without  altering  the  pattern  matrix 


A  -  35 


reference  to  the  weapon  position  number.  For  example,  if  a  pattern 
existed  for  weapon  2,  currently  defined  as  a  Mk-82  50 0  pound  general 
purpose  bomb,  you  could  retain  the  same  pattern  definition  but  redefine 
the  weapon  to  model  Mk-84  2,000  pound  bombs  using  this  option  of  the 
program.  Use  caution  with  this  feature:  if  the  pattern  is  built  for 
weapon  #  2,  a  cluster  bomblet  unit  (C3U)  bomblet,  and  you  redefine 
weapon  #  2  to  be  a  Mk-82,  your  pattern  still  will  be  designed  for  CBU, 
except  that  the  bomblet  crater  sises  will  be  much  bigger  (Mk-82  craters) 
than  previously  defined.  You  will  be  able  to  load  the  new  weapon 
definition  in  the  same  manner  as  in  the  creation  mode  of  the  program. 
After  the  weapon  is  entered,  the  program  will  return  you  to  the  menu. 

Review  the  Weapon  Matrix.  When  you  select  this  option,  the 
crater  table  format  will  be  shown  on  the  first  screen,  and  after  you 
press  any  key  to  continue  the  display,  the  entire  crater  table  will  be 
shown  on  the  second  screen.  Then  the  program  will  return  you  to  the 
menu. 

Review  the  Attack  Pattern  Matrix.  When  you  select  this 
option,  the  attack  pattern  information  will  be  displayed  on  the  screen*. 
Because  there  is  so  much  information  pertaining  to  each  pattern,  only 
one  pattern  is  shown  per  screen.  The  display  pauses  until  you  press  any 
key  to  continue,  then  moves  on  to  the  next  pattern.  After  the  last 
pattern  is  shown,  the  program  will  return  you  to  the  menu. 

End  Weapon  Section  Editing.  When  you  are  finished  with  the 
review  and  modification  of  the  weapons  matrix,  enter  this  choice  from 
the  menu.  The  program  will  move  to  the  attack  pattern  section  for 
further  review  and  editing. 
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The  Attack  Pattern  Section.  This  portion  of  the  program  allows  you 
to  edit  the  pattern  database.  The  modes  of  editing  are  similar  to  those 
in  the  weapons  section.  The  main  difference  is  that  there  are  no 
internal  interactions  between  the  pattern  matrix  and  the  weapons  matrix; 
whatever  changes  you  make  to  the  patterns,  the  weapons  crater  table  will 
remain  unchanged.  The  attack  pattern  section  begins  with  a  menu  of  6 
choices.  You  may  delete,  add,  or  insert  patterns;  review  the  weapons  or 
pattern  matrices;  or  save  the  edited  version  of  the  database  and  end  the 
program.  Following  are  descriptions  of  the  menu  choices. 

Delete  a  Pattern.  To  preclude  deleting  a  pattern  mistakenly, 
the  program  will  accept  your  request  to  delete  a  pattern  and  ask  that 
you  confirm  the  pattern  number  you  entered.  Once  you  confirm  the 
deletion,  the  pattern  will  be  removed,  and  all  other  patterns  with  a 
higher  position  number  in  the  matrix  will  be  shifted  to  fill  in  the  hole 
created  by  the  deletion.  The  program  will  then  advise  whether  the 
pattern  was  in  fact  deleted  or  not,  and  you  also  may  confirm  this  by  a 
review  of  the  pattern  matrix  when  the  program  returns  you  to  the  menu. 
If  you  delete  all  of  the  patterns,  the  program  automatically  places  you 
in  the  "Add  a  pattern"  mode,  since  you  must  define  at  least  one  pattern 
in  order  to  run  programs  AAPMSN  and  AAPMOD. 

Add  a  Pattern.  You  may  add  patterns  to  the  end  of  the  pattern 
matrix  as  long  as  there  are  less  than  12  patterns  currently  defined; 
patterns  may  be  deleted  to  make  room  for  a  subsequent  addition,  if 
necessary.  Adding  a  pattern  means  that  the  new  pattern  definition  will 
be  added  to  the  end  of  the  matrix  as  it  currently  exists.  For  example, 
if  there  are  4  patterns  in  the  matrix,  adding  a  new  pattern  will  cause 
the  new  pattern  to  be  placed  in  position  number  5.  If  12  patterns 


A  -  37 


already  are  defined,  the  program  will  issue  an  error  message  and  return 
you  to  the  menu.  Otherwise,  you  will  be  able  to  load  the  new  pattern 
definition  in  the  same  manner  as  in  the  creation  mode  of  the  program. 
After  the  pattern  is  entered,  the  program  will  return  you  to  the  menu. 

Insert  a  pattern.  You  may  insert  a  pattern  anyv/here  in  the 
pattern  matrix  as  long  as  there  are  less  than  12  patterns  currently 
defined;  patterns  may  be  deleted  to  make  room  for  a  subsequent 
insertion,  if  necessary.  Inserting  a  pattern  means  that  the  new  pattern 
definition  will  be  inserted  into  the  table  at  the  position  you  specify, 
displacing  the  pattern  in  that  position.  The  displaced  pattern,  along 
with  the  patterns  following  the  displaced  pattern,  are  shifted  up  in 
position  number  to  make  room  for  the  new  pattern.  For  example,  if  there 
are  5  patterns,  and  you  insert  at  position  2,  pattern  #  1  will  remain 
unchanged  in  position,  the  new  pattern  will  become  pattern  #  2,  and  old 
patterns  #  2  through  5  will  become  patterns  #  3  through  6.  If  you  try 
to  insert  a  pattern  at  the  end  of  the  pattern  matrix  where  no  pattern 
currently  exists,  the  program  automatically  adds  the  pattern, 
effectively  changing  the  option  to  "Add  a  pattern."  If  12  patterns 
already  are  defined,  the  program  will  issue  an  .error  message  and  return 
you  to  the  menu.  Otherwise,  you  will  be  able  to  load  the  new  pattern 
definition  in  the  same  manner  as  in  the  creation  mode  of  the  program. 
After  the  pattern  is  entered,  the  program  will  return  you  to  the  menu. 

Review  the  Weapon  Matrix.  When  you  select  this  option,  the 
crater  table  format  will  be  shown  on  the  first  screen,  and  after  you 
press  any  key  to  continue  the  display,  the  entire  crater  table  will  be 
shown  on  the  second  screen.  Then  the  program  will  return  you  to  the 
menu. 
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Review  the  Attack  Pattern  Matrix .  When  you  select  this 
option,  the  attack  pattern  information  will  be  displayed  on  the  screen. 
Because  there  is  so  much  information  pertaining  to  each  pattern,  only 
one  pattern  is  shown  per  screen.  The  display  pauses  until  you  press  any 
key  to  continue,  then  moves  on  to  the  next  pattern.  After  the  last 
pattern  is  shown,  the  program  will  return  you  to  the  menu. 


VIII.  Attack  Assessment  Program  Mission  Database  Generator  (AAPMSN) 


This  program,  designed  for  a  microcomputer,  combines  .  a  target 
database  and  a  weapons  and  attack  pattern  database  with  additional 
information  entered  during  AAPMSN  program  execution.  The  combined  data 
are  written  onto  a  single  disk  file  in  a  format  compatible  with  the 
input  requirements  of  AAPMOD.  Therefore,  program  AAPMOD  may  be  executed 
immediately  with  the  new  file  produced  by  successful  completion  of 
program  AAPMSN. 

Program  AAPMSN  has  one  mode  of  execution:  new  file  creation.  To 
begin  the  program,  an  executable  version  of  AAPMSN  must  exist  on  the 
disk.  If  there  is  no  executable  file  (AAPMSN.COM  or  AAPMSN.CMD),  one 
must  be  created  by  compiling  the  PASCAL  source  code.  Refer  to  page  A-9 
for  compilation  instructions.  Additionally,  you  must  have  the  2 
existing  database  files  (a  target  database  and  a  weapons  and  attack 
pattern  database)  available  on  disk  and  be  able  to  identify  the  files 
when  prompted  for  their  names  by  AAPMSN,  Assuming  the  required  files 
are  available,  type  the  command  AAPMSN  and  press  <RETURN>  to  begin. 

How  to  Create  the  AAPMOD  Input  File 

The  start  of  program  AAPMSN  asks  you  for  the  file  names  of  the 
target  database  file,  the  weapons  and  attack  pattern  database  file,  and 
the  output  file  to  be  generated  by  AAPMSN.  The  program  then  will 
attempt  to  read  the  2  input  files.  If  an  error  message  similar  to  ”1/0 
error  10,  PC»1234,  Program  aborted"  appears  on  the  screen,  there  is  a 
format  error  in  one  of  the  input  files  or  you  did  not  specify  the 
correct  files  required  by  AAPMSN.  A  different  type  of  error  may  be 
generated  by  AAPMSN,  advising  you  of  a  discrepancy  between  the  2  input 


A  -  40 


files  in  the  number  of  hardness  levels  defined.  AAPMSN  reads  both  input 
files,  checks  the  hardness  levels,  and  prints  this  error  message  if  the 
hardness  levels  are  not  the  same.  The  descriptions  of  programs  AAPTGT 
and  AAPWPN  discuss  how  the  number  of  hardness  codes  for  pavement  targets 
and  non-pavement  targets  must  be  defined.  If  you  want  to  review  the 
hardness  levels  or  any  other  information  in  the  input  database  files, 
use  the  modification  mode  of  program  AAPTGT  for  the  target  file  or 
AAPWPN  for  the  weapons  and  attack  pattern  file. 

As  soon  as  the  input  files  are  read  successfully,  AAPMSN  allows  you 
to  review  the  target,  weapons,  and  attack  pattern  matrices.  You  will  be 
able  to  review  these  at  other  times  throughout  the  program,  too.  Then 
the  program  prompts  you  for  initial  mission  analysis  information. 

Building  the  Mission  Package.  For  the  next  series  of  questions, 
the  program  has  a  set  of  default  values.  If  you  press  <RETURN>  in 
response  to  the  questions,  the  default  values  will  be  loaded 
automatically.  At  the  end  of  these  questions,  you  will  have  a  chance  to 
review  the  values  and  change  them  if  desired.  The  inputs,  discussed  in 
the  next  paragraph,  have  default  values  as  follows:  the  flag  that 
enables  or  suppresses  AAPMOD  execution  of  routine  OVLAP  remains 
unchanged,  random  number  seed  «  987654567,  number  of  samples  *  200, 
results  to  be  reported  once,  level  of  significance  ■  0.05,  and  Z  a 
1.645. 

The  first  message  you  will  see  after  reviewing  the  database 
matrices  is  a  description  of  the  flag  that  enables  or  suppresses  AAPMOD 
execution  of  routine  OVLAP.  The  message  will  indicate  the  status  of 
this  flag  based  on  the  particular  target  database  you  are  using.  If  you 
built  the  target  file  with  program  AAPTGT,  the  flag  is  set  according  to 
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the  width  of  the  widest  pavement.  A  width  greater  than  899  units  (feet, 
meters,  or  whatever  the  target  database  used)  will  set  the  flag  to 
suppress  AAPMOD  routine  OVLAP.  If  all  of  the  targets  are  less  than  this 
size,  the  flag  will  not  be  set,  and  AAPMOD  routine  OVLAP  will  be 
enabled.  You  have  the  option  of  leaving  the  flag  at  its  current  setting 
or  overriding  the  flag.  You  may  want  to  override  the  flag  and  suppress 
routine  OVLAP  to  save  execution  time.  Routine  OVLAP  searches  for 
overlapping  craters  and  adjusts  the  total  area  damaged  by  the  amount  of 
overlap.  When  the  routine  is  disabled,  this  search  will  not  be 
accomplished  for  any  of  the  target  pavements,  and  execution  time  will  be 
reduced  by  an  order  of  magnitude. 

AAPMSN  asks  you  if  you  want  to  specify  a  random  number  seed.  If 
you  answer  no,  the  program  will  load  its  own  default  seed,  987654567. 
Note  that  the  seed  is  not  used  by  the  TURBO  PASCAL  version  of  AAPMOD; 
the  seed  is  loaded  in  case  of  input  to  the  mainframe  version  of  AAPMOD 
which  does  require  a  seed. 

Next  you  oust  enter  the  number  of  Monte  Carlo  samples  you  want  to 
run,  where  each  sample  represents  a  complete  mission  profile.  AAPMOD 
will  produce  output  statistics  for  any  specified  number  of  samples,  but 
more  samples  result  in  more  confidence  in  the  answer.  More  samples  also 
take  more  time  to  compute.  You  must  decide  the  acceptable  tradeoff 
between  accuracy  and  execution  time.  This  can  be  determined  by  use  of  a 
confidence  interval. 

Start  with  200  samples  and  generate  the  AAPMOD  output  statistics. 
Decide  which  variable  is  of  most  interest  to  you,  and  develop  the 
confidence  interval  for  it.  If  the  expected  number  of  hits  on  the 
target  receiving  the  most  hits  is  of  interest,  you  are  in  luck:  AAPMOD 
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automatically  calculates  what  is  called  the  confidence  half-interval  for 
90%  and  99%  confidence.  For  instance,  suppose  that  target  element  #1 
has  an  expected  number  of  hits  numbering  14  with  a  90%  confidence  half¬ 
interval  of  0.5  and  a  99%  confidence  half-interval  of  1.0.  This  means 
that  99  out  of  100  runs  of  the  simulation  will  give  a  number  of  hits  on 
target  element  #1  numbering  14  ±  1.0.  This  is  probably  quite 
acceptable. 

If  other  statistics  are  more  important,  as  probably  will  be  the 
case,  you  can  calculate  your  own  confidence  half-interval.  The 
confidence  half-interval  is  based  on  the  Student's  t-statistic.  For 
more  than  30  samples,  the  t-statistic  can  be  approximated  by  the  normal 
statistic.  For  the  normal  statistic,  the  required  numbers  to  use  are 
Za/2  *  1.645  for  the  90%  confidence  half-interval  and  Z^  *  2.576  for 
the  99%  confidence  half-interval. 

Suppose  that  for  200  samples,  the  probability  of  cut  for  target 
element  #1  (a  runway)  is  0.500  with  a  SIGMA  of  0.035.  Then  the  90% 
confidence  half-interval  is: 

90%  Cl  ■  (  Z^2  )  (  SIGMA  )  /  (  number  of  samples  )  ^ 

-  (  1.645  )  (  0.035  )  /  (  200  )  *  «  0.0041 

Using  similar  calculations,  the  99%  confidence  half-interval  is 
0.0064.  In  this  case,  99  out  of  100  runs  would  be  expected  to  result  in 
probabilities  of  cut  in  the  range  0.500  ±  0.0064.  This  is  probably 
accurate  enough  for  any  envisioned  use  of  AAPM0D.  In  fact,  the  number 
of  samples  probably  could  be  reduced.  Remember,  running  AAPMOD  with 
less  than  30  samples  will  require  use  of  the  t-statistic  for  confidence 
interval  calculations:  you  would  need  to  find  these  values  in 
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statistical  tables.  The  easiest  solution  is  to  use  200  samples  and 
check  the  accuracy  afterwards. 

Next,  enter  the  desired  reporting  interval.  If  you  are  only 
interested  in  the  final  results  of  the  run,  enter  the  same  figure  as  the 
number  of  samples.  If  you  specified  more  than  200  samples  for  the 
program  to  run,  the  next  prompt  will  ask  you  if  you  want  AAPMSN  to 
optimize  its  sampling  procedures.  Answering  yes  causes  the  program  to 
run  200  samples,  then  compute  how  many  additional  samples  it  will  run  in 
order  to  produce  the  level  of  significance  you  specify.  The  next  input 
is  the  level  of  significance  for  the  analysis.  The  level  of 
significance  is  the  same  as  1  minus  the  confidence  level.  Typical 
values  are  0.10  (90%  confidence),  0.05  (95%  confidence),  0.025  (97.5% 
confidence),  0.01  (99%  confidence),  0.005  (99.5%  confidence),  and  0.001 
(99.9%  confidence).  A  high  confidence  level  means  that  you  are 
reasonably  sure  that  the  results  are  accurate.  The  lower  the  level  of 
significance,  the  more  samples  will  be  required,  and  hence  longer 
computer  execution  times  will  result,  A  commonly  used  level  of 
significance  is  0.05,  Following  this  entry,  you  must  provide  the  "Z"  or 
Standard  Normal  test  statistic  for  the  level  of  significance.  Typical 
"Z"  values  are  given  on  the  screen  for  your  convenience;  however,  you 
may  use  the  Standard  Normal  tables  to  obtain  the  correct  value  for  other 
levels  of  significance, 

AAPMSN  continues  with  a  partial  recap  of  the  mission  package  data 
entered  so  far.  Review  this  information  carefully,  because  you  may 
correct  any  errors  now,  but  not  later.  If  there  are  errors,  the  program 
will  repeat  the  first  section  questions  for  you  to  reenter.  If  there 
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are  no  errors,  the  program  continues  with  the  final  portion  of  the 
mission:  entering  the  flight  line-up. 

Building  the  Flight  Line-Up.  The  flight  line-up  is  the  sequence  of 
aircraft  attack  passes  to  be  flown  over  the  target  complex.  AAPMOD 
allows  a  maximum  of  32  passes  flown  by  a  maximum  of  32  aircraft.  Each 
aircraft  will  fly  a  minimum  of  1  and  a  maximum  of  2  passes  over  the 
target  complex.  Therefore,  a  wave  of  32  passes  may  be  flown  by  a 
minimum  of  16  aircraft  assigned  2  passes  each,  a  maximum  of  32  aircraft 
assigned  1  pass  each,  or  a  combination  of  aircraft  assigned  1  or  2 
passes  each.  When  prompted  by  AAPMSN,  enter  the  total  number  of  passes 
to  be  flown.  Then  enter  the  number  of  aircraft  participating  in  the 
attack.  Next,  you  must  describe  each  pass  in  detail. 

AAPMSN  builds  the  flight  line-up  by  requesting  data  for  each  pass 
in  sequence.  The  program  effectively  pairs  an  aircraft  number  with  each 
pass  as  follows:  Pass  number  1  always  is  paired  with  aircraft  number  1. 
Pass  number  2  will  be  paired  with  aircraft  number  2  unless  you 
previously  assigned  aircraft  1  to  fly  its  second  pass  as  pass  number  2. 
Pass  number  3  will  be  paired  with  the  next  available  aircraft  unless  you 
designated  aircraft  1  or  2  to  fly  pass  number  3  as  its  second  pass.  The 
process  continues  until  all  passes  have  been  defined,  or  AAPMSN  detects 
that  an  insufficient  number  of  aircraft  are  available  to  complete  the 
pass  descriptions*  Should  this  situation  occur,  AAPMSN  displays  an 
error  message  and  starts  over  again  with  the  first  pass  definition. 
Note  that  if  you  design  the  flight  line-up  correctly,  give  the  correct 
information,  (number  of  passes  and  number  of  aircraft),  and  make  no 
mistakes  in  designating  passes,  this  error  will  not  occur. 


Here  is  an  example  flight  line-up: 


CALLSIGN 

ASSIGNED  PASSES 

ASSIGNED  AIRCRAFT 

RED 

1 

2 

1 

•  BLUE 

3 

6 

2 

GREEN 

5 

9 

4 

BLACK 

8 

10 

5 

WHITE 

4 

7 

3 

In  this  example,  you,  the  flight  leader,  brief  the  5  flight 
members.  Red,  Blue,  Green,  Black,  and  White,  to  fly  2  passes  each  over 
the  target  complex.  Red  will  fly  passes  1  and  2,  Blue  will  attack  next 
(pass  number  3),  White  will  fly  pass  number  4,  Green  will  fly  pass 
number  5,  then  Blue  will  make  his  second  pass  (number  6),  and  so  forth. 
The  aircraft  will  be  assigned  by  AAPMSN  as  shown  in  column  3  above. 

For  each  pass  you  must  enter  the  element  number  (from  the  target 
matrix)  of  the  target  to  be  attacked.  Then  enter  the  preplanned 
aimpoint  using  X-Y  coordinates  based  on  the  coordinate  system  and  units 
chosen  when  building  the  target  database.  If  the  pass  will  involve 
multiple  weapon  releases,  the  preplanned  aimpoint  should  be  entered  as 
the  midpoint  of  the  stick  of  weapons.  Next  enter  the  attack  direction 
in  degrees  counter-clockwise  from  the  positive  X-axis.  For  example,  if 
the  positive  X-axis  points  east,  and  the  attack  is  flown  in  a  north¬ 
easterly  direction  (from  the  south-west  of  the  target  complex),  you 
would  enter  approximately  45  degrees  for  the  attack  azimuth*  Then  you 
must  specify  the  attack  pattern  (from  the  attack  pattern  database)  to  be 
flown  this  pass. 

At  this  point  of  the  program,  a  partial  recap  of  the  pass 
definition  will  be  displayed  on  the  screen.  You  will  have  a  chance  to 
reenter  any  incorrect  information.  Once  you  indicate  the  information  is 


correct,  you  will  not  have  another  opportunity  to  correct  it.  After  the 
information  recap,  you  must  enter  the  probability  that  the  aircraft 
survives  up  to  the  first  pass.  AAPMOD  uses  this  probability  to 
determine  whether  the  first  pass  results  in  weapons  release.  Next  you 
will  see  a  display  of  the  current  flight  line-up.  The  aircraft  numbers 
displayed  are  the  ones  available  for  the  mission.  You  must  identify 
which  pass  the  current  aircraft  will  fly  next.  If  the  aircraft  will  not 
fly  a  second  pass,  enter  0.  From  the  example  on  the  previous  page,  if 
you  were  describing  Green's  pass  number  2,  the  correct  response  to  this 
px-ompt  would  be  9.  The  last  entry  for  the  pass  definition  is  the 
probability  that  the  aircraft  makes  the  second  pass.  This  is  the 
probability  that  the  aircraft  is  not  killed  from  the  time  it  makes  its 
first  pass  to  the  time  it  expends  its  weapons  on  the  second  pass. 

Prior  to  each  pass  you  may  elect  to  review  any  of  the  3  data 

matrices  (target,  weapon,  or  attack  pattern).  You  also  may  view  the 

current  flight  line-up,  which  could  help  to  prevent  incorrect  pass 

assignments.  After  all  of  the  passes  are  defined,  A APMSN  writes  the 

data  onto  the  disk  file  you  specified  at  the  beginning  of  the  program 

* 

and  displays  this  filename  on  the  screen.  The  program  then  ends,  and 
you  may  run  AAPMOD  with  the  file  newly  created. 
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APPENDIX  B 


PASCAL  LISTINGS  FOR  THE  ATTACK  ASSESSMENT  PROGRttf  PACKAGE 

This  appendix  provides  the  source  code  listings  -for  the  eight 
PASCAL  programs  in  the  microcomputer  series  o-f  the  Attack  Assessment 
Program  Package.  The  programs  are  written  in  Borland  International's 
TURBO  PASCAL,  and  are  speci-fic  to  this  version  o-f  PASCAL.  Further 
details  o-f  the  hardware  and  sortware  requirements  for  running  these 
programs  and  descriptions  of  the  program  functions  may  be  found  in  the 
User  Manual,  Appendix  A.  The  programs  listed  in  this  appendix  are: 

Section  it  <*PNOO.PAS  and  AAJPMOD 1 . PAS 

Section  2:  AAFTOT.FAS  and  AAPTGT1 .PAS 

Section  3:  (WWPN.PAS  and  fctfWPNl.PAS 

Section  4:  AAPHSN.FAS  and  AAPMSN1.PAS 


ii j  ■  y.  u*  i  i.  Jil  L  I 


•J.' 


L_l  mi  U«JJt 


{=s=_-_ - =====  i  - - - - - ? 

<-■■- . .  ■■  FILE  &tfWH)l.PAS  II  Feb  85  =====  =======} 

-  =====  ==> 

{  Airfield  Attack  Program  <  Modified  ) 

Older  version  used  at  Eg! in  AFB,  FL,  and  51-61  contractor  locations. 

Developed  at  Oklahoma  State  University,  under  contract  FG8635-79-C-8255, 
for  the  Joint  technical  Coordinating  6roup  for  Munitions  Effectiveness. 

Modified  by  Captain  Robert  N.  Miglin,  Air  Force  Institute  of  Technology, 

March  1984,  to  provide  interactive  capability  for  tactics  assessment  with 
a  program  written  for  the  Cyber  CDC  6688  in  FORTRAN  5. 

Converted  from  FORTRAN  5  to  TURBO  PASCAL  by  Major  David  A.  Roodhouse  and 
Captain  Thomas  K.  Green,  Air  Force  Institute  of  Technology.  } 


{ - ^-.l^ai!,;!„m„f;W3a.!_;,iaT;ar, . .  . . . . . } 

program  aapnod  ; 

label  85,288 ,341,358 ,361,378 ,438 ,568 ,588,598,648,651 ,661 ,678 ,726 ,738 , 
768,771,788,791,888,811  ; 

const  twopi  ;  real  3  6.28318538718  ; 

var  i,ifin,ii,ij,ii3,inflag3,irepr,is,iseed,it,itgtgp,itgttp,itt, 
i3,j , jd, jdef , j j , jk, jr , jrng, jwpntp,k ,ka,k j ,kk ,kk2,kml ,kode,kpl , 
kw,kwl,kz,kzp,kzt,kzl,k8,k2,k8,l,lastj,lj,lv,m,nflag,riB,nl, 
nxptch,n,narea,nbom,ncp,nelt,nfiil,nflagl,nflag2,nflag3,nmax,nain, 
npatt ,npass ,nptrn ,nsamp,nsaap 1 ,nsamp2 ,nsampr ,nsampt ,n tgps , 
nttt,ntxwy, avals, nwep,nxtp  :  integer  ; 

apprcw,arfil1,arfils,cosp, cost, crazyn,cr»ax, crain, cuts, d, dap, diffar, 
error, f ill, o*cho,passxt,passyt,r,raaJ, rain, simp, sint, suarun,5uastp, 
sl,s2,s3,tbhldl,tbhld2,tl,vfflaj,vain,x,xctr,xiwod,xp,xsl,xs2,xi,xlylol, 
xlylil,y,yctr,yiwod,yp,ysl,ys2,yl,zalph  :  real  ; 

icrat,  i2cut  :  arrayU..41  of  integer  } 
icut  i  array! 1.. 4,1.. 31  of  integer  | 
ihit,  ipcut,  kh  >  array! 1.. 31  of  integer  ; 
ipass  i  array! 1.. 32,1.. 23  of  integer  ; 
ipat  :  array!!.. 12,1.. 41  of  integer  $ 
ipl  i  array! 1.. 48]  of  integer  | 
isav  i  array! 1.. 8883  of  integer  j 
itgt  :  array! 1. . 112, 1. .33  of  integer  | 

Inhits  ;  array! 1. . 1121  of  integer  ; 
npx  i  array! 1.. 321  of  integer  ; 
numapr  s  array!!.. 4,1.. 2]  of  integer  ; 
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ata,  countr,  decar,  rapf,  rcut,  rhit,  sigadi,  sights,  signaf 
:  arrayC 1 . . 1 121  of  real  j 

aain,  apra,  apmtin,  srep,  astp,  dstr,  enapfl,  sigarp,  sigasp,  sigcrt, 
snapfl,  xc,  yc  :  arraytl.. 33  of  real  ; 
crit  :  arraytl. .112,1. .21  o f  real  ; 
crtah  :  arraytl.. 11,1.. 6,1.. 21  of  real  ; 

gpadac,  gpadht,  gpactss,  gparea,  gpht,  gphtac,  gphts  :  arrayC  1. .  153  of  real 
pass  :  arrayt8..32,1..63  of  real  ; 
patt  :  arraytl.. 13,1.. 341  of  real  ; 

sapr,  sapra,  sgapr,  sgapra,  sgcrat,  sgiina,  snina  :  arraytl, ,41  of  real  ; 

save  :  arraytl, ,888,1. .31  of  real  ; 

sigcts,  sigfil  i  array! 1..271  of  real  j 

square  :  arraytl.. 9881  of  real  ; 

strap  :  arraytl.. 3831  of  real  | 

tgt  :  arraytl.. 112,1.. 51  of  real  ; 

1st  J  text  i  t  REMOVE  THIS  LINE  WO  MODIFY  1NDAT  FOR  IBRD  COPY  1 


{procedure  declarations 


procedure  tmubcvar  rv  i  real) 
var  u,  x  :  real  ; 
begin 

u  :=  randan  ; 
x  :»  sqrt<2  X  u)  j 
rv  s=  1888  X  x  -  1888  ; 
end  ;  {  of  procedure  trisub  1 


procedure  clstrp  ; 
label  18,  25,  41  ; 
var  tsiore,  quit  i  boolean  ; 

icc,  is,  istart,  it,  ix,  J,  jdp,  jn,  jr,  jz,  min  :  integer  j 
aicc,  cstar,  suep,  tenp,  tsxu,  tsyu,  xs,  ys  :  real  ; 
isort,  jsort  :  arraytl. .8881  of  integer  j 
area  t  arraytl.. 8881  of  real  ; 

begin 
xs  !=  8  j 
ys  s=  8  | 

tsxu  crittl , !1  j 
tsyu  :=  crittl, 23  j 
cstar  s=  18.8el5  ; 
min  s*  n  | 

{  — define  areatj)  :=  difficulty  of  repairing  crater  j 

changed  28  act  81  to  conpute  area  of  square  craters--"-  1 
for  j  s=  1  to  n  do  areatjl  t=  4  X  sqr(  crtabtitgttl,21,isavtM],tl  ) 
{  — set  up  for  sweep —  1 
25: 

lain  :=  8  ) 
istart  :=  8  j 
swep  :=  18. Se^  : 


jr  j  i-  l  to  n  do  begin 

if  (  ssveUI  4  j  -  1,23  ♦  crtabtitgttl  ,2J,isavt!<8  4  j  -  11,11  >  ys  > 

and 

(  savetkB  +  j  *  1,23  -  crtabEitgtll,21,isavlM  4  j  -  13,12  <  tsyu  ) 
then  begin 
if  lain  =  8 
then  begin 
lain  :=  1  } 
isortUl  s=  j  ; 
jsortllJ  :=  j  ; 
end 

else  begin 
it  ss  Bin  5 
Bin  !=  ain  4  1  ; 
quit  s=  false  ; 
repeat 

jz  s=  isortlitl  } 

if  savetki  4  j  -  1,11  4  crtabtitgtll,23,isavlt!8  4  j  -  13,13  < 
savelkS  4  jz  -  1,13  4  crtablitgtll,23,isavtk8  ♦  jz  -  11,13 
then  begin 

isorttit  4  13  ;=  isortlitl  5 
it  i=  it  -  1  { 
if  it  >  8 
then  quit  s*  tr-uf 
else  isortlll  3®  j  j 
end 

else  begin 

quit  s®  true  { 
isorttit  4  13  1=  j  j 
end  { 
until  quit  ; 
it  s®  Bin  -  1  ; 
quit  i3  false  ; 
repeat 

jr  3=  isortlitl  } 

if  savelk8  4  j  -  1,23  4  crtabtitgtll,2J,isavtki  4  j  -  11, 13  < 
savelKI  4  jr  -  1,23  4  cr tabC i tgtt 1 ,21 , isivCkl  4  jr  -  11,13 
then  begin 

jsortlit4l3  3=  jsorttit]  5 
it  3®  it  -  1  j 
if  it  >  I 
then  quit  3®  true 
else  jsortlll  1=  j  ; 
end 

else  begin 

quit  3s  true  1 
jsortlit  ♦  13  3®  j  5 
end) 

until  quit  ; 
end  1  1  else  3 

end  ;  1  if  stateneot  just  below  j  loop  ) 
end  1  (  j  loop  3 


— execute  weep 

detemine  difficulty  of  repairing  craters  touching  frame —  3 

ix  :=  istart  *  i  ; 
aicc  :=  8  ; 
icc  f  8  j 
repeat 

quit  i=  true  j 
if  ix  <=  Bin  then  begin 
jn  :=  isorttixl  ; 

if  savetKS  *  jn  -  1,13  -  crtabCitgttl ,23 .isavCKB  ♦  jn  -  13,13  <  tsxu 
then  begin 

aicc  f  aicc  ♦  areatjnl  ; 
icc  f  icc  ♦  i  | 
ix  p  ix  ♦  1  j 
quit  p  false  i 
end 

else  begin 

if  savetki  *  jn  -  1,13  -  cmax  <  tsxu  then  begin 
ix  i=  ix  ♦  1  | 
quit  :=  false  ; 
end  j 
end  *, 

end  ; 

until  quit  ; 

— coapare  repair  difficulty  for  frane —  3 
nor*  p  true  j 
if  cstar  >  aicc  then  begin 
cstar  i*  aicc  } 
rain  f  icc  ; 
xcUl  p  xs  j 
yctll  p  ys  | 

if  cstar  <=  l.illllll  then  begin 
xctll  f  xctll  ♦  crittl,13  j 
nor*  p  false  { 
end  ] 
end  | 

- now*  fran* - 3 

if  nor*  then  begin 
t«P  p  aicc  -  cstar  | 

1: 

istart  f  istart  ♦  l  j 
if  istart  <a  ain  thin  begin 
is  f  isorttistartl  j 
if  teap  3  amt  is!  then  begin 
tenp  f  teap  -  treat  i  si  } 
goto  81 
end  | 

if  swep  3  aicc  then  swep  f  aicc  j 

tsxu  f  savettl  ♦  is  *  1,13  ♦  crtablitgttl,21,isavtl!l  ♦  is  -  13,13  ♦ 
crittl ,  13  ♦  9 .11188111 1  i 


if  tsxu  <=  tgttl ,43  then  begin 
xs  :=  tsxu  -  crittl, 11  j 
goto  II  ; 
end  ; 
end  ; 

[  — sweep  finished —  ) 
tenp  *.=  swep  -  cstar  5 
jdp  s=  I  5 
repeat 

quit  s=  true  j 
jdp  s=  jdp  M  | 
if  jdp  >  nin  then  begin 
xctll  :=  xctll  ♦  crittl, 11  ; 
aore  :=  false  ; 
end  5 

is  s=  jsortCjdp]  ; 
if  tenp  >  area t is]  then  begin 
tnp  !=  tenp  -  areal  is]  ; 
quit  s=  false  ; 
end  j 

until  quit  j 
if  nore  then  begin 

tsyu  ia  savelkl  ♦  is  *  1,21  ♦  crtabtitgttl,21,i5avlkl  ♦  is  ■  il *  13  ♦ 
crit[1,21  ♦  l.lltllllll  ; 
if  tsyu  )  tgtti,51 
then  xcdl  ia  xctll  ♦  crittl ,U 

else  begin 

ys  i*  tsyu  -  crittl ,21  } 
is  :=»  I  i 

tsxu  crittl ,11  ; 
goto  23  t 
end  ] 

end  j  t  if  nore  ) 
end  1  t  if  nore  ) 
eed  ;  (  procedure  elstrp  ) 

(eawMMMsaaaaaeaa  be—  ■■minwmrurriisuM'iiw  "'w  tx  —bb 

procedure  ain«<  var  n,  xy  t  integert  x,  y  i  integer;  var  It  1  integer! 
var  w,  m  ;  real  )  ) 

(  — harnett's  taxiway  program  iiserted  to  replace  mint*  l  oct  81 
latest  version  of  taxiway  23  apri)  11182 

ac  i*  max  number  of  craters  in  a  subproblem 
nsub  j*  mu  number  of  subproblens  to  be  solved 
a  :=•  number  of  craters  in  entire  problmi 
type  iotarraySI  3  arraytU.SI]  of  integer  ; 

label  71,  113,  til,  122,  211,  231,  dill,  7111,  7111,  7121  \ 

var  more,  quit,  namore  s  boolean  ; 


i,  iflag,  isave,  iunder,  j,  jlist,  jm,  jp,  js,  k,  I,  a, 
ac,  of,  ofillc,  afn,  nl,  nan,  op,  nsub  i  integer  ; 


anin,  bfeas,  and,  dist,  el,  eu,  rep,  rixio,  xd,  yd  :  real 
istart  :  array!  1..  18811  of  integer  ; 
ibeas,  icoap,  ipsol,  irep,  it,  listl,  1ist2  :  intarray58 
a  :  array 11.. 1181  of  real  } 
wr,  ux,  ay  :  array!i..S81  of  real  ; 
procedure  check(var  inn  :  intarraySI  )  ; 
label  18,  12,  13,17,  28,  588,  581,  return  ; 
var  jflag,  ji,  jj,  jt,  jteop,  jx,  jxn  :  integer  ; 
dif ,  xd,  xain,  yd  :  real  t 


procedure  betvsn  ; 
label  1,  2,  7,  8,  9,  999,  2888  ; 

var  ix,  k,  kflag,  ka,  kp,  kl,  k2,  11,  12,  nit,  nil,  n!2  :  integer 
dis,  dx,  dy,  top,  xd,  xaax,  xain,  yd  s  real  j 

begin 

(  -—(jflag  <«  1)  inplies  'undtr-twer' 

(jflag  )*  2)  iaplies  'over-under'  —  ) 

kflag  t*  I  ] 

oil  t*  t  | 

listl!  11  »»  jx  i 

alt  S3  1  | 

k  sa  jx  | 

xain  s»  wsCjxl  -  arljxl  -  craax  -  u  j 
(  — construct  'list!'  of  craters  behind  jx  iapiaging 

directly  or  indirectly  upon  it  —  ) 

It 

ka  ta  jun  \ 

(  — -detecaUt  if  ka  iapioges  upon  k —  ) 

2s 

if  Mxtta)  )»  xain  then  begin 
ix  s=  I  j 

while  (ka  O  listllixl)  aid  (ix  G  ell  )  do  ix  t«  ix  ♦  I  j 
if  ka  0  listlCixl  then  begin 
xd  ta  axtk]  -  wx(ka)  \ 
yd  s»  aytkl  -  wytkal  | 

dis  s=  sqrt<  sgrtxd)  ♦  sqr(yd)  )  -  urtkal  -  urlk]  j 
if  dis  <  w  then  b*gin 

if  (  jflag  <3  I  )  and  (  wytka]  ♦  wrtkal  )  m  -  w  ) 

or 

(  jflag  >  2  >  and  (  uytkal  -  urtkaJ  (  a  )  then  goto  999  } 


« 


r\ 


{ - deteraine  if  to  inpinges  upon  jxn - } 

xd  :=  wxttol  *  wxtjxn]  ; 
yd  :=  wyttol  -  wytjxnl  ; 

dis  p  sqrtt  sqr<xd>  ♦  sqr(yd)  )  -  wtto]  -  wrtjxal  ; 
if  dis  <  w  thin  goto  999  j 
teap  :=  uxttol  -  wrltol  -  cmax  -  w  ; 
if  xain  >  tap  then  xain  !=  tap  ; 
nil  p  nil  M  5 
listltnlll  s=  to  ; 
end  ; 
end  | 

to  s=  to  -  1  5 
if  to  >  S  then  goto  2  ; 
end  ; 

nit  p  nit  ♦  l  j 
if  nit  <=  nil  then  begin 
k  Is  listilnlt]  i 
goto  1  i 
end  ; 

{  — construct  Mist2'  of  enters  ahead  of  jxa  inpinging 

directly  or  indirectly  upon  it  —  } 

nl2  Is  1  | 
listen  p  jxa  \ 
alt  i=  1  j 
k  p  jxa  } 

xanx  p  wtkl  *  urlk]  4  craix  4  u  j 
{  — deteraine  if  kp  impinges  upon  k —  ) 

7i 

kp  p  ja  | 

8t 

if  wxtkp]  <=»  xanx  then  begin 
for  ix  p  l  to  nl2  do  if  kp  »  Ust2UxJ  then  goto  9  \ 
xd  p  talk]  -  wxtkp]  t 
yd  p  wytk]  -  wylkp]  ; 

dis  p  sqrtt  sqrtxd)  4  sqrtyd)  )  -  wtrCKpJ  wrUJ  j 
if  dis  <  w  then  begin 

if  <  jfUg  <»  l  )  ud  <  wylkpj  -  urtkp]  <  w  > 
or 

<  jfUg  >  2 )  and  (  wylkp]  4  wrtkp]  )  ww  *  w  )  then  goto  999  | 

( - deteraine  if  kp  impinges  upon  jx - ) 

xd  p  wxtkp]  -  wxtjx)  | 
yd  p  wytkp]  -  wyt jx]  ; 

dis  p  sqrtt  sqr(xd)  4  sqrtyd)  )  -  wrlkp]  -  wrl jx]  j 
if  dis  <  w  then  goto  999  ; 
tap  P  wxtkp]  4  wrlkp}  4  craax  4  w  j 
if  xanx  <  teap  then  xaax  p  teap  ; 
n!2  p  nl2  4  |  j 
1ist2tnl2]  p  kp  ; 
end  i 
9j 

kp  p  kp  4  i  j 

if  kp  <=  jt  then  goto  8 
tod  | 


PH 
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alt  :=  alt  ♦  l  5 
if  alt  <=  n!2  then  begin 
k  :=  list2tnltl  ; 
goto  7  5 
end  ; 

{  — deternine  if  listl  impinges  upon  tist2 —  1 
for  kl  :=  1  to  nil  do  begin 
11  :=  listltkll  ; 
for  k2  :=  1  to  nl2  do  begin 
12  :=  Iist2tk2]  ; 
dx  :=wxl111  -  wxt  1 21  ; 
dy  :=  wytlll  -  wytl23  5 

dis  5=  sqrtt  sqr(dx)  ♦  sqr(dy)  >  -  wrtlll  -  wrtl21  5 
if  dis  <  u  then  goto  99?  ; 
end  ; 
end  ; 

goto  2188  ; 

999; 

kfUg  ;=  8  ; 

2118: 

jflag  :=  Kf lag  ; 
end  \  <  procedure  betun  ) 


! 

i 


t 

l 

/ 


f 


begin  {  procedure  check  ) 
iflag  l  1 
jt  i*  0  | 

for  jx  :»  l  to  nc  do  begin 
if  innljxl  <  1  then  begin 
jt  :*  jt  ♦  1  1 
jj  1*  nf«  *  Jx  j 
wxljtl  ;*  savetxy  -  l  ♦  jj,xl  j 
wyljtl  1*  savetxy  *  1  *  jj,yl  | 
terljtl  :=  crtabllt,isav[xy  -  1  ♦  jjl,21  } 
end  i 
end  ; 

if  Jt  <»  I  then  goto  return  j 
itlll  :=>  -l  j 

if  vytll  -trill  )»  w  then  itlll  1*  8  | 
if  wylll  ♦  trill  <=  m  -  te  then  itlU  :=  1  ; 
if  itlll  <  0  then  begin 
iflag  :«  0  } 
goto  return  j 
end  1 
Jx  i»  l  1 

16: 

jx  :»  Jx  ♦  l  1 
jxa  jx  -  1  5 
if  jx  )  jt  then  goto  return  | 
l  — cm  tee  get  over  jx? —  1 

if  wyljxl  ♦  trljxl  <  =  *1  - 1»  then  begin 
if  ill jxal )  I  then  begin 
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{ - do  an  'over-over' - > 

xmin  i=  uxtjxl  -  wrtjxl  -  cmax  -  w  j 

{ - check  back — - —  5 

jtenp  :=  jxa  ; 

13: 

jtenp  :=  jtenp  -  i  j 
if  jtenp  >  8  then  begin 

{ - - — does  an  'under'  impinge  upon  jx? - } 

xd  :=  uxtjxl  -  uxtjtenpl  ; 
yd  :=  wytjKl  -  uytjtenpl  s 

dif  :=  sqrt<  sqrtxd)  +  sqr(yd)  )  -  wrtjxl  -  wrtjtenpl  j 
it  dif  <  u  then  begin 
it  itt jtenp]  <=  8  then  goto  12  ; 
end  ; 

it  uxtjtenpl  )=  xmin  then  goto  13  ; 
end  | 

itljxl  s=  1  ; 
goto  18  ; 
end  ; 

{ - try  tor  'under-over' - } 

jtlag  :=  1  j 
betwn  | 

if  jtlag  >  I  then  begin 
itljxl  :=  1  j 
goto  II  ; 
end  ; 
end  ; 

{  — can  we  get  under  jx  ? —  } 

12: 

if  wytjxl  -  wrtjxl  <  u  then  begin 
iflag  :«  I  | 
goto  return  j 
end  { 

21: 

if  ittjxml  <  1  then  begin 

{ • - do  an  'under -under' - 1 

xmin  uxtjxl  -  wrtjxl  -  crmax  -  w  ; 

t - does  an  'over'  impinge  upon  jx  ? — —  ) 

jtenp  :=  jxm  j 
17: 

jtenp  t=  jtenp  -  1  j 
if  jtwp  >  I  then  begin 
xd  :=  uxtjxl  -  wxt jtempl  j 
yd  :»  wyt jx]  -  uytjtenpl  { 

dif  :a  sqrtt  sqrtxd)  ♦  sqrtyd)  )  *  urtjxl  -  urtjtenpl  j 
if  dif  <  u  then  begin 
if  ittjtempl  )=  1  then  goto  311  | 
end  { 

if  uxtjtenpl  >  xmin  then  goto  17  ; 
end  ; 

itljxl  i=  I  ) 
goto  II  ; 
end  ; 
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} 


— try  tor  'over-under'— 
jflag  p  2  ; 
betuen  ; 

it  j-f lag  >  8  then  begin 
itljxl  s=  8  } 
goto  18  ; 
end  ; 

— backtrack —  } 

• 

ji  :=  jx  I 


ji  :=  ji  -  1  1 
if  ji  )=  1  then  begin 
if  ittjil  <=  I  then  goto  581  ; 
jx  p  ji  } 
jx*  p  jx  -  1  j 
if  jx*  )  8  then  begin 
if  wytjxl  -  *rtjx]  )=  u  then  goto  21  } 
goto  511  ; 
end  ; 

if  «y(il  -  wrCl]  >=  *  then  begin 
itCil  i=  I  i 
goto  II  | 

end  ; 

end  j 

iflag  p  I  i 
turn i  . 

end  ;  <  procedure  check  } 


begin  (  procedure  aiaw  ) 
crtux  p  I  j 
if  n  )  51  then  begin 

uriteln<  Ut,  '  Umber  of  craters  exceeds  51s  o  »  ',n»5  > 

halt  i (cal  1  exit  ) 
end  | 

{ - changed  to  compute  area  of  square  era  Ss  21  oct  81— —  ) 

for  j  i*  l  to  o  do 

if  cr«ax  <  crtabnt,isavtxy  -  t  ♦  jl,21  then  begin 
cr«ax  i5*  crtabtlt,isavtxy  -  1  ♦  jl,2)  ) 
aij]  t*  4  I  sqr<  crtabllt,isavlxy  -  1  ♦  jJ,21  >  | 
end  j 

nfill  p  I  | 
arfill  p  I  } 

{  — search  for  subprobl**s—  ) 
istartCU  p  1  } 
owb  p  1  | 
ana  p  n  -  t  3 
for  j  p  I  to  no*  do  begin 
jp  p  j  ♦  1  } 
ja  p  j  | 

el  p  savelxy  ♦  j  -  1,*1  ♦  crtabllt,isavlxy  -  I  ♦  jl,21  | 
w  p  savelxy  ♦  jp  -  l.xl  -  crtabtlt,isavtxy  -  1  ♦  jpJ,2J  { 


i-f  el  ♦  w  <=  eu  then  begin 
repeat 

quit  :=  true  ; 
in  !=  in  -  1  i 
if  in  >=  1  then  begin 

if  saveixy  -  1  ♦  in,x]  *  crtabtlt,isavtxy  -  1  ♦  in), 2)  )  el 
then  el  i=  saveixy  -  l  ♦  jn,xJ  ♦  crtabnt,isav[xy  -  1  ♦  ja),2)  5 
if  saveixy  -  i  ♦  jn,x]  4  craax  >  el  then  quit  :=  false  ; 
end  | 

until  quit  ; 

repeat 

quit  s=  true  ; 
ip  s=  ip  ♦  1  5 
if  ip  <'  n  then  begin 

if  eu  >  saveixy  *  1  4  jp,xl  -  crtabilt,isavtxy  -  l  4  jp],2) 
then.eu  i=  saveixy  -  1  4  jp,x)  -  trtabilt,isavixy  -  1  4  jp],2)  5 
if  eu  )  saveixy  -  i  4  jp,xl  -  craax  then  quit  :»  false  5 
end  ; 

until  quit  ; 

if  el  ♦  w  <a  eu  then  begin 
nsub  **?  nsub  4  |  j 
if  nsub  )  till  then  begin 

aritelnt  1st,  '  Subproblats  exceed  1111'  >  j 

halt  ;  (call  exit) 
end  | 

istarttasub)  »*  j  4  1  } 
end  } 
end  1 

end  ;  (  J  loop  ) 
istartlasub  *  II  1*  ft  e  1  | 

(  -—solve  subprobl«s — -  ) 
for  is  t*  I  to  nsub  do  begin 
af  i*  istartiis)  j 
ol  t*  istartiis  ♦  li  -  1  }' 
nf»  *,=  »f  -  !  j  • 
craax  t»  I  { 
for  j  ss  of  to  el  do 
if  cmax  ( crtiMH,is*vtxy  -  I  4  i),2) 
then  tfftix  {»  crtabilt,iS4Vtxy  -  l  ♦  il,21  j 
sc  \*  ol  -  nfn  j 
M  K  )  51  thee  begin 

uriteUf  1st,  '  KunUr  of  craters  ia  subprograa  exceeds  SI,', 

'oc  «  ncs5  )  j 
halt  ;  (call  exit) 
end  } 

if  as  (a  2  then  begin 
bfeas  i*  I  j 
op  ;a  nf  4  1  } 

if  saveixy  -  i  <  M,y)  «  crtibtlt,isav(xy  *  1  4  nfl,21  )  total  then  begin 
if  savetxy  -  l  4  of,yl  -  crtibUt,isavlxy  -  I  ♦  of),21 5a  « 
thee  goto  122  { 
bfeas  s*  bfeas  *  aiofl  ; 
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nfill  !=  nfill  ♦  1  ; 
ireptnfill]  ;=  nf  ; 
arfill  :=  arfill  +  atnf]  5 
i-f  nc  <=  1  then  goto  238  ; 

if  savetxy  -  1  ♦  np,y]  +  crtab[lt,isavtxy  -  1  +  up] ,2]  <=  «w  -  n 
then  goto  238  ; 

if  savetxy  -  i  ♦  np,yl  -  crtabt1t,isavCxy  -  t  +  np],21  >=  w 
then  goto  238  ; 
bfeas  :=  bfeas  ♦  atop!  ; 
nf ill  !=  nfill  *  1  j 
ireptnfiHl  :=  np  ; 
arfill  !=  arf ill  ♦  atnp]  | 
goto  238  ; 
end  ; 

if  nc  <=  1  then  goto  238  ; 

if  savetxy  -  i  *  np,y]  ♦  crtabtlt,isavlxy  -  1  *  npl,2]  (=  uu  -  u 
then  goto  238  ; 

if  savetxy  -  1  ♦  np,yl  -  crtabtlt,isavtxy  -  1  ♦  up] ,23  >=  w 
then  goto  114  ; 

arfill  i=  arfill  ♦  atnp]  ; 
bfeas  :=  bfeas  *  atnp]  5 
nfill  s=  nfill  ♦  1  5 
ireptnfiHl  s=  np  ; 
goto  231  ; 

xd  :=  savetxy  -  1  f  nf,xl  *  savetxy  -  1  ♦  np,xl  j 

yd  1=  savetxy  -  1  ♦  nf,y]  -  savetxy  -  1  ♦  np,y]  } 

diet  s*  sqrt<  sqrtxd)  ♦  sqr(yd)  )  -2  ]  crtabtlt,isav(xy  -  1  ♦  np],21  \ 

if  dist  >=  u  then  goto  238  ; 

if  (  savetxy  -  1  ♦  nf ,y]  -  crtabllt,isavtxy  -  1  f  nf],2J  >=  u  ) 

and 

(  savetxy  *  1  ♦  np,y]  -  crtabtlt,isavtxy  -  1  *  np] ,2]  >=  u  ) 
then  goto  231  ; 
anin  13  atnf]  j 
isave  i=  nf  ; 

if  atnf]  )  itnp]  then  isavo  j=  np  | 

if  atnf]  >  atnp]  then  »<n  !=  atnp]  | 

arfill  !=  arfill  ♦  anin  j 

nfill  is  nfill  +  1  5 

ireptnfilll  13  isave  j 

bfeas  :3  bfeas  ♦  anin  ; 

goto  238  ) 

if  nc  <=  1  then  goto  238  { 

if  savetxy  -  1  ♦  np,y]  -  crtabtlt,isavtxy  -  1  ♦  np] ,21  )=  u 
then  goto  238  | 

if  savetxy  -  1  ♦  npfyl  ♦  crtabtlt,isavtxy  -  1  ♦  np] ,2]  <=  mn 
then  goto  114  } 


{ - check  dear  path - } 

tor  j  f  1  to  nc  do  ipsolt j3  !=  B  5 
checkt ipsol)  ; 
it  itlag  >  8  then  begin 
bteas  s=  8  ; 
goto  281  ; 
end  ; 

{  - initialization  tor  iaplicit  enuneratioo 

tor  k  :=  1  to  nc  do  begin 
ibeastkJ  :=  I  ; 
iccnptkl  f  1  \ 
end  ; 

jlast  :=  8  5 
ntillc  f  8  j 
rep  :=  8  \ 
bteas  ;=  18.0928  ; 

{ - forward  aove — -  } 

7888: 

jlast  f  jlast  ♦  l  j 

iunder  1=  jlast  | 

ipsol [jlast]  :*  i  j 

rep  :=  rep  taint*  ♦  jlastl  \ 

( - test  2 - > 

it  rip  5=  bteas  then  goto  7828  j 

( - test  1 - ) 

check(ipsol)  j 

it  itlag  <=  I  then  goto  7818  5 
bteas  i»  rep  | 

tor  k  1=  1  to  nc  do  ibcaslkl  F  ipsoUkl  \ 

< - test  6 - ) 

7828: 

it  ntillc  a  jlast  then  goto  71  ; 

{ - backward  (knb - ) 

ntillc  t»  ntillc  ♦  iunder  -  jlast  *  1  } 
ipso! Ciunderl  f  I  5 
jlast  f  iunder  { 
rep  f  rep  -  atnta  ♦  jlast]  | 
it  jlast  <*  1  then  goto  7818  j 
a  f  iunder  -  l  \ 
naiore  f  talse  j 
k  Ft  | 
repeat 
k  f  k  ♦  i  1 
1  f  iunder  *  k  | 
it  ipsol til  a  1  then  begin 
iunder  f  iunder  -  k  j 
ntnore  f  true  j 
end  ! 

until  <  k  a  a  )  or  (  nacre  )  ; 
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7818: 

it  jlast  O  nc  then  begin 
a  :=  jlast  +  1  ; 
rain  :=  18888  ; 

tor  K  :=  n  to  nc  do  it  atntn  +  kl  <  min  then  min  :=  alntn  +  hi  ; 
end  ; 

bnd  :=  rep  ♦  min  j 
{ - test  3 - ) 

it  (bnd  )=  bteas)  or  (jlast  =  nc)  then  goto  7828  ; 

{ - test  4 - ) 

it  ipsoll jlast!  5  1  then  goto  7868  ; 

tor  k  :=  1  to  jlast  do  iconptkl  :=  ipsoKk]  ; 

check(iconp); 

{ - test  5 - ) 

it  iunder  O  jlast  then  begin  > 

■  :=  iunder  ♦  1  ; 

tor  k  :=  a  to  nc  do  icooplkl  :=  1  ; 
end  ; 

it  itlag  <=  8  then  goto  7628  ; 
goto  7188  ; 

78: 

arfill  :=  artill  ♦  bteas  ; 

218: 

it  bteas  )  8 

then  tor  i  :=  1  to  nc  do 
it  ibeaslil  >  4  then  begin 
ntill  :*  ntill  ♦  l  j 
ireptntilll  :»  nta  ♦  i  ; 
end  j 
238: 

end  |  (  js  loop;  do  subprobleat  ) 
cuts  i°  8  ; 

it  ntill  O  8  then  cuts  :«  nsub  ; 
end  ;  (  procedure  nincvt  ) 

procedure  ovlap<  k,  It  :  integer;  xt,  yi  t  real;  itl,  itw,  kz  integer; 
var  sun  :  real  )  ; 

label  38,  48,  34,  81,  78,  98  ; 

var  quitting  :  boolean  ; 

i,  j,  jd,  jdpa,  kl,  k2,  1,  11,  12,  13,  a,  npi  s  integer  ; 

dip,  dl,  soap,  xl,  x2,  x3,  yl  :  real  ; 

(  — initialize —  ) 
begin 

tor  i  :a  I  to  itu  do  squared]  i=  8  ; 
sua  :=  8  ; 
suap  i=  8  ; 
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{  — find  first  and  last  values  of  x  to  consider —  } 

13  :*  trund  saveCi!,U  -  craax  +  i  -  x8  >  ; 
if  13  <  I  then  13  :*  i  5 

12  :=  trunc<  savelk  -  1 4  kz,U  ♦  craax  *  1  -  xl )  ; 
if  12  >  itl  then  12  :=  itl  j 
jd  :=  i  } 
a  :=  *  ; 

11  !=  13  i 

{  — loop-one  square  at  a  tine  in  x 
1  5=  x  value  at  top  of  square —  } 

1  !=  11  -  l  5 
while  1  <  12  do  begin 
lplMj 
dxp  :=  8  g 
jd  :=  jd  ♦  n  j 
»  :=  8  g 
if  jd  )  kz 

then  1  s=  12  {  ends  procedure  } 
else  begin 

{  - if  all  craters  have  been  considered,  return 

loop-crater  by  crater... consider  all  craters  which 

could  possibly  intersect  in  x  -  ) 

i  s=  jd  -  t  5 
while  i  <  kz  do  begin 
i  :=  i  ♦  1  g 

{ - - locate  left  hand  edge  of  crater — —  ) 

npi  s=  isavtk  -  i  ♦  13  ; 

xl  13  savelk  -  1  ♦  i,U  *  crtibtlt,opi,U  -  xl  | 

if  xl  <  1  -  1  then  goto  31  ; 

x2  :>  savelk  -  1  a  i,U  -  craax  -  xl  g 

if  x2  )=  l 

then  i  13  kz  1  ends  while  i  <  kz  loop  } 
else  if  xl  <  1  then  begin 

( -——left-hand  edge  of  crater  lies  inside  1th  square — —  ) 
dxp  f  1  -  xl  j 
goto  dl  | 

{  - loft  hand  edge  of  crater  is  below  x-square 

locate  right  hand  edge  of  crater  -  ) 

31 1 

xl  :«  savelk  -  1  ♦  i,  13  e  crtabllt,npi,U  -  xl  | 
if  xl  <=  1  -  l  then  goto  41  | 
if  xl  )»  1  then  goto  51  g 

1 - right  hand  edge  of  crater  lies  inside  1th  square - ) 

dxp  t3  xl  -  l  ♦  1  g 
goto  41  | 

( - crater  j  ]jM  entirely  left  of  x-square.. .no  nMd  to  consider 

this  crater  any  we 
41: 

x3  t*  savelk  -  1  *  i,13  ♦  craax  -  xl  g 
if  x3  1  -  1  then  a  a  *  1  5 


—crater  intersects  x-sqnare.^check  intersections  in  y— ■ 


} 


yl  s=  savelk  -  1  ♦  i ,23  -  crtabUt,npi,ll  -  y8  ; 

- kl  :=  index  of  y-square  containing  lower  edge  of  crater  i - 

HI  :=  trundyi)  +  1  ; 
if  kl  (  i  then  K1  s=  1  ; 

- dl  f  I  of  y-square  occupied  by  crater - } 

dl  :=  kl  -  yl  ; 

if  dl  )  1  then  dl  f  1  s 

squarelkll  f  ril  IE  dxp  +  squarelkll  ; 

if  kl  =  itw  then  goto  98  ; 

kl  f  kl  ♦  l  5 

yl  f  savelk  •  1  *  i,21  *  crtabnt,npi,U  -  y8  ; 

k2  f  trundyi)  j 

if  k2  >  itw  then  k2  f  itw  ; 

if  k2  =  itw  then  goto  78  ; 

dl  ;=  yl  -  k2  ; 

- load  square  containing  top  edge  of  crater  i - } 

squaretk2  4  U  ;=  dl  f  dxp  4  squarelk2  4  1)  ; 

- load  interaediate  y-squares...dl  :=  1 - ) 

8: 

for  j  f  kl  to  k2  do  squareljl  :=  square! j}  4  dxp  ; 
end  ;  {  else  if  begin  } 

I: 

end  ;  {  while  i  loop  1 

- count  squares  that  are  at  least  half-filled -  1 

for  j  f  1  to  itw  do  begin 
if  squareljl  )=  I.S  then  suop  f  suop  ♦  1  j 
squareljl  f  I  ; 
end  \ 

sua  f  sun  4  sump  j 

- if  there  is  a  gap  in  x-values,  skip  to  next  x-value  needed - 

quitting  f  true  | 

if  <  dxp  <=  8  )  and  <  n  O  8  )  then  begin 
jdpa  f  jd  4  a  j 
if  jdpn  >  kz 

then  1  f  12  <  ends  procedure  ) 
else  begin 

quitting  f  false  ; 

13  f  trunc<  savelk  -  1 4  jdpt»,ll  -  craax  -  x8 )  4  l  j 
if  13  >  l 
then  begin 
11  f  13  j 

I  F  11  -  l  | 

end 

else  begin 
13  f  1  4  l  | 

II  F  13  } 

1  F  11  -  1  I 


if  quitting  then  suap  a 
end  ;  {  else  } 
end  ;  {  while  loop  3 
nd  :  {  procedure  ovlap  3 


procedure  bldg  ; 

{  — assess  area  rewining  undanaged  after  all  bits  are 

evaluated  for  this  attack  —  3 

var  j,  ka,  npj  :  integer  ; 

dl,  dw,  dl,  d2,  oarea,  olngth,  owdth,  ratio,  xcen,  xh,  xoc 
ycen,  yh,  yoc  :  real  $ 

begin 

ratio  :*  tgttl ,43  /  tgttl,51  s 
i  j=I  1 
repeat 
j  **  j  ♦  1  i 

du  :=  sqrtt  decartll  /  ratio  )  ; 
dl  sa  dw  I  ratio  ; 
xh  s=  (  tgttl, 43  -  dl  >  /  2  j 
yh  sa  <  tgtll,53  -  dw  >  /  2  j 
xoc  :=  tgttl  ,43  /  2  -  xh  j 
yoc  »=  tgttl  ,53  /  2  -  yh  j 
xcen  savetkl  ♦  j  -  1,13  -  xh  j 
ycen  Ja  savetkl  a  j  -  1,23  -  yh  j 
dl  :s  abst  ycen  -  yoc  >  | 
d2  i»  abst  xcen  -  xoc  )  | 
npj  t=  isavtkl  a  j  -  13  j 
if  (  dl  <  <  crtabtitgUl,23,npj,ll  a  du  /  2 )  ) 
and 

<  d2  <  <  crtabUtgtn,2J,npJ,ll  a  dl  /  2  )  ) 
then  begin 

if  <  dl  <a  tgttl ,53  /  2  )  and  (  d2  <a  tgttl, 43  /  2  ) 
then  ka  s=  2 
else  ka  t3  1  \ 

owdth  !■  ycen  a  crtabtitgttl,23,npj,kal  i 
if  dw  <  owdth  then  owdth  t*  da  \ 
if  ycen  )  crtabtitgttl,2],npj,ka3 
then  owdth  i»  owdth  -  ycen  a  crtabti tgttl ,23 ,npj,ka3  | 
olngth  t*»  xcen  a  crtabtitgtt1,23,npj,ka3  j 
if  dl  <  olngth  then  olngth  «a  dl  | 
if  xcen  >  crtabti tgttl ,21, npj, kal 
then  olngth  i®  olngth  -  xcen  a  crtabti tgttl, 23, npj, kal  ; 
oarea  s»  olngth  I  owdth  ; 
decart  13  t*  decart  13  -  oarea  { 
if  decardl  <3  I  then  j  *.=  n  )  (  end  procedure  3 
end  | 

until  j  3  n  j 

end  i  (  procedure  bldg  3 


(  ■  "■  -  - -  . —  - - - - ) 

procedure  sortt  n,  i,  xi,  yi,  zi  :  integer  )  5 
var  it,  jo,  to,  1o,  no,  no  ;  integer  ; 
t  s  real  j 

begin 
jo  f  •  ; 
i  f  i  -  1  } 

repeat  Jo  s=  2  I  jo  4  1  until  jo  )=  n  | 
while  jo  )=  2  do  begin 
jo  s *  trunetjo  /  2)  } 
ko  5=  n  -  jo  j 
tor  1o  f  i  to  ko  do  begin 
no  :=  1o  ; 
repeat 

no  5*  no  ♦  jo  | 

it  saveti  *  no,xi]  >  saveti  *  no,xil 
then  begin 

t  f  saveti  +  10, xi]  ; 
saveti  ♦  no,xi]  :=  saveti  ♦  no,xi]  5 
saveti  4  no,xil  f  t  ; 
t  f  saveti  4  no,yil  ; 
saveti  a  no,yi]  f  saveti  *  no,yi]  ] 
saveti  *  no,yil  f  t  } 
t  f  saveti  4  no,zi]  j 
saveti  *  M,zil  f  saveti  *  00, zi]  5 
saveti  4  no,zil  F  t  j 
it  f  isavti  *  no]  1 
isavti  a  no]  f  isavti  4  no!  \ 
isavti  4  no!  f  it  ; 
no  f  bo  -  jo  j 
end 

else  no  F  I  { 

until  no  <3  I  | 
end  1  t  lo  loop  ) 
end  |  (  while  ) 
end  ]  t  procedure  sort  ) 


1  “> 


»  V 


procedure  noraotvar  r,sr,d,sd  1  real)  t  ' 

var  a,  x  t  real  ;  It* 

begin 

x  f  randen  }  |.'v 

it  x  «  I  then  x  f  randen  |  (  trap  to  prevent  tad)  next  line  ) 

a  f  sgrtt  -2  X  ln<x)  )  j  ■>;*! 

x  F  randen  X  twopi  | 

r  f  a  X  sr  X  sintx)  }  (L, 

d  f  a  X  sd  X  cos(x)  1  >> 

end  j  (  procedure  nor an  ) 


8-1-19 


procedure  initialize  ;  (call  after  reading  input  file  ) 
var  i,  j  :  integer  ; 
begin 

randaiize  ;  <  initializes  TURBO  RASCAL  randtn  ouaber  generator  } 
nsanpr  p  1  ; 
naax  8  ; 
cmax  :=  I  ; 
crnin  :=  1.1*18  | 
for  i  p  1  to  nelt  do  begin 
itgttp  :=  itgtti,2]  ; 
for  j  p  1  to  npass  do  begin 
nptrn  p  ipasstj , U  j 
jwpntp  p  ipattnptrn,31  ; 
if  itgtti, 13  =  1  then  begin 
tbhldl  !=  crtabiitgttp, jwpntp, 11  ; 
tbh1d2  !=  crtabtitgttp, jwpntp, 21  ; 
if  tbhldl  <  crnin  then  crnin  p  tbhldl  ; 

if  tbhld2  <  crnin  then  crnin  p  tbh1d2  ; 

if  tbhldl )  cmax  then  cmax  p  tbhldl  ; 

if  tbhld2  >  cmax  then  cmax  p  tbhld2  j 

end  ; 
end  | 
end  ; 

for  i  1  to  nelt  do  begin 
cnuntrtil  p  8  ; 
sightstil  i=  8  j 
adelil  !=  8  i 
sigafrlil  p  8  j 
end  | 

for  i  p  I  to  ntgps  do  begin 
gphtslil  p  8  { 
gpadMlil  i«  8  j 
end  ; 

for  i  p  l  to  lv  *  ncp  do  begin 
rapflil  p  8  ; 
sigiiftil  p  8  { 
rcutti)  p  8  j 
rhitti]  P  8  ) 
sigctstil  p  8  ; 
sigfiltil  Is*  8  ; 
end  ; 

for  i  p  I  to  ncp  do  begin 
sigcrtlil  p  8  ; 
astptil  i=  8  | 
tigaspUl  p  8  ; 
artplil  !°  8  | 
enapflUl  p  8  ; 
snapfllil  p  8  { 
ihittil  p  8  ; 
ipcntlil  p  8  j 
aninlil  p  8  ) 
apmintil  p  8  { 
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apratil  :=  8  j 
dstrlil  i=  8  j 
sigarptil  :=  8  ; 
end  | 

for  i  f  l  to  ncp  +  1  do  begin 
i2cuUi]  :*  8  ; 
icratlil  f  8  ; 
sgcratdl  i=  8  \ 
sainadl  f  8  ; 
sgiinadl  f  8  ; 
saprdl  s=  8  j 
sgaprCil  f  8  ; 
sapratil  f  8  j 
sgapraiil  Is  I  t 

for  j  :=  1  to  ncp  do  icutti,jl  f  8  ; 
end  | 

end  j  {  initialize  ) 


procedure  repair  ; 
label  return,  31,  68  j 

var  itgttp,  j,  Jupntp,  jit  kk,  ktyp,  til,  k3,  k9,  1,  nrep  ;  integer  ; 
swr  )  real  ; 

begin 

nrep  f  kz  | 

if  nrep  >  nxptch  then  nrep  f  axptch  j 
if  nrep  =  8  then  goto  return  | 
kl  f  I  | 
k?  f  kz  j 

ktyp  f  ircpr  nod  18  } 

if  <  ktyp  )  8  )  and  <  <  iavett,3}  <  ii3  >  or  <  ktyp  *  2  )  )  then  begin 
if  (  saved, 31  >  ii3  )  aid  (  ktyp  ■  2  >  then  goto  return  ; 

J  f  I  \ 

Mbit*  <  i  (“  kz  )  and  <  saved, 31  <*  U3  )  do  begin 
if  saved, 31  <  ii3  then  kl  f  J  j 
J  f  i  ♦  1  j 
end  | 

k9  f  i  -  1  | 
end  | 

31 1 

if  k9  >  nrep  ♦  kl  then  k9  f  nrep  ♦  kl  ) 
kl  f  kl  ♦  1 5 
if  k9  (  kl  then  begin 
if  ktyp  a  2  then  goto  return  ; 


I  p  trunc(  savetklf31  +  8.81  )  ; 
suit  p  khtll  -  kl  ♦  1  j 
if  narea  =  8  then  sunr  :=  wintll  ; 
if  k?  (khill  then  begin 
sunr  :=  k9  -  kl  +  1  } 
if  narea  =  8  then  begin 
if  sunr  <=  khtll  -  k9  then  begin 
sunr  p  8  j 

ov1ap(  kl,  itgtn,21,  xctll  -  crittl.13,  yctll,  trunc<  crittl,ll  ), 
trunct  crittl ,23  ),  k9  -  kl  +  1,  sunr  )  ; 
goto  48  j 
end  ; 

j  i=  k9  ♦  1  j 
star  p  8  j 

ovlap  <  j,  itgttl,21,  xctll  -  crittl, 11  -  2  l  cmax,  yctll  -  2  *  crnax 
trunct  crittl,  11  +  4  l  crnax  ),  trancC  crittl, 21  ♦  4  i  cmax  ) 
khtll  -  k9,  sunr  )  5 
star  p  aintll  -  sunr  | 
end  ; 
end  ; 

It 

areptll  p  areptll  +  sunr  ; 
sigarptll  p  sigarptll  ♦  sqrt  sunr  )  j 
kS  p  khtll  ; 
if  kS  >  k9  then  k5  p  k9  [ 
k5 1=  k5  +  l  j 
for  j  p  kS  to  n8  do  begin 
jt  t=  kl  ♦  j  -15  { 
save! j  1,11  p  savetj, 11  { 
savctji,21  p  savetj, 21  } 
savetj 1,31  p  savetj, 31  { 
isavtjll  p  isavtjl  ; 
end  | 

k5  p  k3  -  kl  } 
orep  p  nrep  -  k5  \ 
nxptch  p  nxptch  -  kS  { 
ki  p  ki  -  k5  j 
a8  t=  nl  -  k5  | 

for  j  pi  to  ncp  do  khtjl  p  khtjl  -  k5  j 
if  (  nrep  »  8  )  or  <  ki  *  8  )  then  goto  return  j 
if  <  savetkt,3]  0  1  )  then  begin 
if  ktyp  =  2  then  goto  return  j 
kl  p  8  | 


{  — repair  hits  on  approach  tor  1th  target  —  it  appropriate —  } 
j  :=  U  i 

while  <  savetj,3)  =  1  >  and  (  j  -  KM  1  <=  nrep  )  and  (  j  <=  Kz  )  do  begin 
itgttp  :=  itgtEl ,21  ; 
jwpntp  f  isavtji  ; 

it  narea  =  8  then  soar  :=  suit  +  4  i  sqr(  crtablitgttp, jwpntp, 11  )  ; 
j  :=  i  ♦  1  5 
end  ; 

k5  f  j  -  kl  ; 

writeln<  1st,  'kl  =  kl,  '  kz  =  k:,  '  nB  =  ',  ol,  '  j  »  ',j  )  •, 

tor  kk  i=  i  to  at  do 

writelnt  1st,  savetkk,n:13:2,  savelkk,21:13s2,  save! kk,3h  13:2  )  ; 
tor  ji  :=  j  to  n8  do  begin 
kk  !*  kl  4  jl  -  j  } 
save£kk,U  :a  save[jl,U  ; 
save!kk,21  :=  saveljl,23  ; 
saveCkk,31  f  saveCj i,33  ; 
isavikkl  :=  isavtjll  } 
end  { 

it  narea  =  i  then  suar  f  k5  ; 
writeln  (  1st  >  ; 

writeln!  1st,  'Nuaber  ot  craters  tilled  on  approach  =  ' ,k5  >  ; 
nrep  ;=  nrep  -  k5  j 
axptch  f  axptch  -  k5- ; 
kz  f  kx  -  k5  j 
at  F  at  -  k5  | 

1  f  1  ♦  1  j 

it  1  (=  nep  then  tor  j  f  1  to  nep  do  khtj)  f  khljl  *  kS  { 
it  (  nrep  =  B  )  or  <  kz  * I  )  or  <  ktyp  =  2  )  then  goto  return  ; 
kl  f  I  j 
k?  f  kz  i 
goto  31  } 
return: 

end  ;  (  procedure  repair  } 
procedure  nconp  | 

{  — this  routine  is  entered  to  calculate  the  ainitun  sample  size 
ot  isonte  carlo  iterations  to  give  a  specific  contidence  level 
and  interval  tor  the  probability  ot  cutting  a  takeoff 
surtace.  it  cannot  be  entered  unless  nflag3  is  set  in  aain 
program  and  nsaap  specified  as  greater  than  2IB. 
var  setting  :  boolean  ) 
j,  Jx,  nuo  :  integer  j 

(integers  i  and  ix  removed)  inactive  in  fortran  version) 
pknua,  small ,  snail  1,  ssize  i  real  s 


pr  i  array! 1.. 31  ot  real  ; 

!  — calculate  and  store  in  a  matrix  the  probability  ot  cut  tor 
each  target  eleaent,  using  this  pattern. 


begin 

settlag  :=  true  i 
it  ncp  >=  1  then  begin 
it  zaiph  <  1.(545  then  zaiph  :=  1.645  ; 
it  (  error  >  8.65  )  or  <  error  <  8.8181  )  then  error  :=  8.85  j 
tor  j  :=  1  to  ncp  do  prljl  :=  rcutlj]  /  nsanp  ; 

{  - initialize  a  loop  to  tind  that  probability  ot  cut  closest 

to  8.5.  this  maximizes  required  sanple  size  tor  worst  case 

target  element  and  attack.  -  } 

snail  i =  abs<  prill  -  8.5  )  ; 
jX  !=  1  } 

I  - loop  to  tind  probability  ot  cut  closest  to  8.5 

and  record  it  as  pknun.  -  } 

tor  j  s=  1  to  ncp  do  begin 
snail l  s=  abs(  prljl  -  8.5  )  j 
it  snail!  <  snail  then  begin 
jx  :=  j  } 
snail  s=  snalll  j 
end  ; 
end  i 

pknun  :=  prljxl  j 
nun  :=  §  j 

{  - it  pknun  is  very  close  to  zero  or  one,  the  statistics 

collapse  nonte  carlo  iterations  to  a  very  snail  nunber. 
then  calculation  ot  additional  iterations  to  run  or 
return  to  the  nonte  carlo  loop  should  not  be  completed. 


this  accomplished  by  setting  ntlagl.  -  ) 

it  <  pknun  )  6.888?  )  and  <  pknun  <  8.9995  )  then  begin 

{  - calculate  total  sanple  size  to  assure  contidence  level 

and  error  interval ,  - -  } 


ssize  i*  pknun  i  (  1  -  pknun  )  31  (  sqrl  zaiph  /  error)  )  j 
nun  >3  trunc<  ssize  )  ♦  1  } 

I  - test  it  more  iterations  required,  setting  appropriate  tings 

whether  to  return  to  the  nonte  carlo  loop,  it  so,  set  lower 

and  upper  nonte  carlo  loop  linits.  -  ) 

it  nun  )  nsanp  then  begin 
nsanpr  ia  nsanp  *  1  } 
ntlagZ  v*  l  } 
it  nun  <  max 
then  nsanp  !=>  nun 
else  nsanp  <a  max  i 
setting  i=  take  | 
end  ] 
end  { 
end  t 

it  setting  then  ntlagl  s=  l  { 
end  i  (  procedure  ncoop  ) 


{ - t . . . : 

procedure  resits  ; 


} 


var  i,  ia,  ib,  iell,  iel2,  ipll,  itgtgp,  k,  fcj,  kk,  kn, 

1,  Icount,  Iv,  ncpl  :  integer  ; 

coof  98,  ct,  saapl,  supo  :  real  j 

pri,  pr2,  pr3,  pr4,  pr5,  pr6  :  array! 1.. 151  of  real  j 

begin 
lv  !=  8  j 
Icount  :=  8  ; 
sanpl  :=  1  /  ns»p2  ; 
sanpo  !=  nsaap2  *  i  ; 
for  i  s3  1  to  ntgps  do  begin 
gpareatil  :=  8  ; 
gpachtil  s=  8  ; 
gphtlil  :=  8  j 
end  } 
ct  :=  8  j 

for  l  !=  1  to  nelt  do  begin 
if  countrU]  >  ct  then  begin 
Icount  *.=  1  | 
ct  i=  countrll 1 
end  ; 

itgtgp  ia  itgt(l,31  | 

gphttitgtgp)  i=  gphttitgtgp]  *  eountrtU  ; 
gpadot itgtgp]  t=  gpacfct itgtgp]  ♦  adktl]  t 
gpareatitgtgpl  >*  gpareal itgtgp]  ♦  tgtCl ,41  X  tgttl,5]  ; 
end  \ 

conf9l  i*  sightstlcountJ  -  sanpl  I  sqr<  couetrllcountl  )  j  ‘ 
conf9l  sqrtf  coof98  /  saapo  )  ; 
conf98  t*  2.574  X  coaf98  X  sqrtf  snap)  )  ; 
writeln  <  1st  )  i 

iritelof  1st,  '  nsap  3>,nnap2!5,  *  *  coof  interval  for  9 95t  level  =*', 

conf9ls??3,  '  for  tgt  elt  =  ',  Icount  >  j 
conf98  i*  1.443  i  coof 91  /  2.374  j 

writelot  1st,  '  coof  interval  for  9IX  level  *', 

conf98i7i3  )  t 

if  <  nflagS  »  I )  and  <  n$»p2  >=•  211 ) 
then  Mritelaf  1st,  '  nsaap  Halted  to  least  of  value  input  or  ntaber  needed 
'to  give  specified  quality  to  probability  of  cut.')  ; 

ib  s*  8  | 

repeat 

ia  ia  ib  *  I  | 
ib  :=  ia  ♦  14  i 

if  ib  )  nelt  thee  ib  ;a  oelt  \ 

ka  ja  ib  -  ia  ♦  1  j 

uriteln  <  1st  )  ; 

uritet  1st,  '  tgt  eloaat'  )  ; 

for  k  i*  ia  to  ib  do  uritet  1st,  fei8  )  ; 

uritelot  1st  )  } 
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for  k  s=  1  to  to  do  begin 
1  s=  k  ♦  in  -  i  s 
prlCkl  :=  saapl  l  coun trill  ; 
pr2tkl  !=  sightstll  -  saapl  *  sqr<  couatrCU  5  ; 
pr2Ikl  :=  sqrt(  pr2Ikl  /  saopo  )  ; 
pr3tkl  :=  saapl  K  attain  ; 
pr4tkl  :=  sigadOCll  -  saapl  *  sqr<  attain  >  ; 
pr4[k3  :=  sqrt(  pr4Ikl  /  saopo  )  ; 
end  ; 

writet  1st,  '  exp  no.  hits'  )  j 
for  k  t3  1  to  ka  do  write!  1st,  prUkl:8:3  )  ; 
writelnl  1st  )  { 
write!  1st,  '  sigia'  )  j 
for  k  i=  1  to  ka  do  write!  1st,  pr2Ik3i8t3  )  j 
writeln!  1st  )  j 
if  narei  3  i  then  begin 
write!  1st,  '  exp  area  daa'  )  ; 
for  k  5=  1  to  ka  do  write!  1st,  pr3IkJi8i8  )  ; 
writeln!  1st  >  ) 
write!  1st,  '  sigaa'  )  j 
for  k  :=  1  to  ka  do  write!  1st,  pr4tkh8il )  ; 
writeln!  1st  )  ; 
end  ; 

write!  1st,  '  tgt  gp,  no.'  )  j 
for  k  :=  ia  to  ib  do  write!  1st,  itgUk,3h8  )  j 
writeln!  1st )  | 
until  ib  )=  nelt  j 
writeln  (  1st  >  j 

writeln!  1st,  '  target  groups'  )  j 
ib  J3  I  5 

repeat 

ia  i*  ib  M  j 
ib  :*  i*  ♦  14  j 

if  ib  )  ntgps  then  ib  i*  ntgps  ; 
ka  :3  ib  -  ia  ♦  l  j 
write!  1st,  '  tgt  gp.  no.'  )  ; 
for  k  ia  ia  to  ib  do  write!  1st,  Ks8  >  t 
writeln!  1st  )  5 
for  k  :*  I  to  ka  do  begin 
1  ;*  k  ♦  ia  -  I  j 

pr ilk)  :*  gphtsW  *  saapl  I  sgr(  gpktIU  )  ; 
prltkl  !■  sprit  prlttl  /  saopo  )  1 
gphtCM  s=  saapl  1  gpMIll  5 
prJCkl  :•  gpattasW  -  saapl  1  sgr<  gpattaill  )  { 
pr2tkl  :=  sqrtf  pr2tkl  /  saopo  )  } 
qpattalll  t=  saapl  I  gpattall)  I 
gpareadl  i-  gpattall]  /  gparealll  ; 
end  \ 

write!  1st,  '  exp  no.  hits'  >  ; 

for  k  :»  ia  to  ib  do  write!  1st,  gphUt)t8a3  )  ; 

writeln!  1st  )  ; 

write!  1st,  '  sigu'  >  1 

for  k  :=  I  to  ka  do  write!  1st,  prllkl:8:3  )  \ 
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writeln<  1st  >  j 
it  narea  =  8  then  begin 
write!  1st,  '  exp  area  das'  )  ; 
tor  k  s-  ia  to  ib  do  write!  1st,  gpath[k]i8:l  )  ; 
writeln!  1st  )  ; 
write!  1st,  '  signa'  >  j 
tor  k  s=  1  to  kta  do  write!  1st,  pr2[kl:8:8 )  ; 
writeln!  1st  )  ; 
write!  1st,  '  exp  per.  das'  >  ; 
tor  k  :=  ia  to  ib  do  write!  1st,  gpareatk]s8i3  )  ; 
writeln!  1st  )  ; 
end  ; 

until  ib  )=  ntgps  ; 
it  ncp  >  8  then  begin 
writeln!  1st  )  ; 

writeln!  1st,  '  tor  runways  and  najor  taxiways'  )  ; 

writeln!  1st,  '  tgt  ncl  new  prob  signa  exp  no  sigia', 

'  exp  area  signa  exp  no  signa  exp  appr' , 

'  signa  exp  appr  signa'  )  ; 
writeln!  1st,  '  elt  cut  craters', 

'  till  tilled  nocrat', 

'  till'  >  ; 

writeln!  1st  >  ; 
tor  1  f  1  to  ncp  do  begin 
prUU  F  sanpl  X  rcuttl]  ; 

prlt21  s»  sqrt!  !  prill]  -  sqr!  prill]  )  )  J  sanpl  )  ; 

prlt41  f  sigcrtll]  -  sanpl  X  sqr!  rhitEU  )  ; 

prlMl  s*  sqrt!  priMJ  /  sanpo  >  5 

prU31  f  sanpl  X  rhittll  ; 

prllS]  :=  sanpl  X  astpilJ  ; 

prlldl  f  sigaspill  -  sanpl  X  sqr!  astplll  )  ; 

prlldl  ss  sqrt!  prlldl  /  sanpo  )  ; 

pr  1C73  :=  sanpl  X  areptll  ; 

pri[81  f  sigarpill  -  snap!  X  sqr!  areplll  >  ; 

pr IC81  f  sqrt!  prlt81  /  sanpo  )  5 

pr K 121  f  signatill  -  sanpl  X  sqr!  raptll]  )  \ 

pr  11121  :=  sqrt!  pr  11121  /  sanpo  )  { 

prUU]  :=  sanpl  X  raptll]  ; 

prltll]  :=  snaptUll  -  sanpl  X  sqr!  enaptUU  )  ; 

print]  f  sqrt!  prlllll  /  sanpo  )  ; 

pr  1193  f  sanpl  X  enaptUU  ; 

write!  1st,  1 1 11,  crittl  ,1]i7i8,  crit(l,2]t5il,  pr* It  13 s?j3,  pr  1121  >7:3, 
prll3]t8:3,  prU41:8a3  )  ; 
it  narea  3  1 

then  write  <  1st,  '  N/A  N/A  '  ) 
else  write  !  1st,  prllSliliit,  pri!41:8t8  )  { 
it  nxptch  3  I 

then  write  !  1st,  '  N/A  N/A  '  ) 

else  write  !  1st,  prl(71:it:l,  prt!81i8s8  )  } 
it  apprew  <  1 

then  write  (  1st,  '  N/A  N/A  N/A  N/A'  ) 

else  write  !  1st,  primuii3,pri(ie]:9:3,prl!ll]:llil,prl!l2];?:t  ) 
writeln  !  1st  )  | 


f  ncp  >  1  then  "begin 
writelnl  1st  >  5 

uritelnl  1st,  '  conbined  probabilities  o f  cut'  )  i 

writeln<  1st,  '  '> 

'  distribution'  )  5 

writelnl  1st,  '  '> 

'  nininun  craters'  )  j 

wfitelnl  1st,  '  tgt  ncl  new  prob  ', 

'signa  exp  no  signa  exp  area  signa  elt  ', 

'elt  elt  exp  appr  signa  exp  appr  signa'  )  5 

writelnl  1st,  '  elts  cut  craters 

'fill  i  2  3  no  crat 

'fill'  >  j 
writelnl  1st  )  5 
iell  sa  1  j 
ie!2  s=  2  5 
ncpl  »=  ncp  M  | 

KJ  F  1  j 

for  1  i=  1  to  3  do  dstrill  :=  sanpl  X  icut£K4 ,1 3  j 
while  Kj  <=  nepi  do  begin 
kk  j=  4  -  Itj  1 

prill!  :=  sanpl  X  i2cutlkjl  ; 
prlt21  1=  sgrtl  sanpl  X  <  prill]  -  sqK  prill!  >  )  >  l 
prlltl  1=  icrattkjl  } 
prit31  s»  saapl  X  prlltl  } 
pr 1141  :»  sgcratlkjl  -  sanpl  1  sqr<  prlltl  )  \ 
prlltl  1=  sgrtl  prlltl  /  sanpo  )  j 
prllSl  Is  sanpl  X  sninalkjl  } 
prlltl  j*  sgninalkj]  *  sanpl  X  «r<  sninalkjl  >  ; 
prlltl  1=  sqrtl  prlltl  /  sanpo  >  1 
prU71  i«  sanpl  X  saprlkjl  ; 
prllSl  i*  sgaprlkjl  *  sanpl  X  sgrl  saprlkjl  )  5 
pr  1(81  sqrtl  prllSl  /  sanpo  )  j 
prllSl  ia  sanpl  X  sapralkjl  j 
pr 1C  111  i"  sgapralkjl  *  sanpl  X  sgrl  sapralkjl  )  \ 
prlllll  sa  sqrtl  prtlltl  /  sanpo  )  ; 
if  kj  <  t 
then  begin 

if  kj  a  2  then  i»12  3  \ 
if  kj  =  3  then  itli  ;*  2  ; 

write!  1st,  '  ie!2,  critli#tl,lli7i8, 

critliel2,21iStl,  prUlla7$3t  prK21j7i3,  prU31s8:3t 
prl(tltSi3  )  { 

if  ncp  0  3  then  kj  t»  ncpl  ♦  i  j  (  end  kj  loop  1 
end 

else  wri tel  1st,  '  Ilt2h3',  critti,ll*7sl,  critll,2]i5i8t 
prUlli7j3,pHl2lj7j3,prl£31s8j3,pritfl!8t3  )  } 

if  narea  a  1 


thee  write!  1st,  '  M/A  M/A  '  ) 
else  writel  1st,  prltShilil,  prlltlsdel,  '  '  >  ( 


for  1  p  i  to  3  do  iH  =  kk 
then  write*  1st,  '  N/A  /  ) 
else  write*  1st,  dstrC13:d:3  )  ; 
it  apprcw  <  1 

then  writeln<  1st,  '  N/A  N/A  N/A  w 
else  writeln*  1st,  prU7]:ll:3,  prU8]s8:3,  prl[91slli8 
pritil]:8il  )  ; 

kj  p  tt j  ♦  1  j 
end  j  {  kj  loop  } 
end  ; 

end  j 

writeln  *  1st  >  } 

lv  !=  I  ; 

for  1  s=  1  to  nelt  do 

it  <  itgtil.ll  =  1  )  and  *  crittl ,13  <  1  )  then  begin 
lv  p  lv  ♦  1  j 
ipUlvl  s=  1  ; 
end  ; 

it  lv  )  8  then  begin 

writeln*  1st,  '  tor  minor  taxiways'  )  ; 

ib  :*  8  j 

repeat 

ia  p  ib  ♦  1  j 
ib  !=  ia  ♦  14  j 
it  ib  >  lv  then  ib  i*  lv  | 
fan  p  ib  -  ia  ♦  1  j 
writeln  <  1st  )  | 

write*  1st,  '  target  element'  )  ; 

tor  k  p  ia  to  ib  do  write*  1st,  ipltkh? )  i 
writeln*  1st  >  ; 

— — non-ansi  standard  subscripts  may  require  adjustment.  — 
write*  1st,  '  target  width'  )  ; 

tor  k  p  ia  to  ib  do  write*  1st,  tgtEipHlt3 ,S3i?il )  ; 
writeln*  1st  )  j 

write*  1st,  '  minings  clear  width'  )  | 
for  k  p  ia  to  ib  do  write*  1st,  criUiptU],2h7il )  j 
writeln*  1st  >  | 
for  k  p  i  to  km  do  begin 
1  p  k  ♦  ia  -  1  j 
ipll  p  ipltU  | 
prltkl  p  sampt  I  rcutliplU  j 
pr2Ckl  p  sigctsUl  -  samp!  X  sqr<  rcuttiplll  )  ; 
pr2lkl  p  sgrt*  pr2lkl  /  sampo  )  | 
prStkl  p  samp!  X  rhittiplll  ; 
prdik)  p  sigfiUU  -  samp!  X  sgr*  rhittiplll  )  \ 
pHtkl  p  sgrt*  pHtkl  /  sampo  )  | 
prdtkl  p  sampl  X  rapt I ipll]  ; 
prStkl  p  signaftiplU  -  sampl  X  sqr*  rapftiplU  )  } 
prSik]  p  sgrt*  prSik]  /  sampo  )  ; 
end  ; 

write*  1st,  '  expected  number  of  cuts'  )  j 
tor  k  p  1  to  km  do  write*  1st,  pri(kl;7t3  )  j 
writeln*  1st  )  j 


writet  1st,  sign'  )  j 

for  K  :=  1  to  kn  do  uriie<  1st,  pr 20(1:7:3  )  ; 
writalnt  1st  >  ; 

write*  1st,  '  expected  craters  to  till"  )  i 
tor  k  :=  1  to  Kb  do  write*  1st,  pr3tkl:7:3  )  ; 
writeln*  1st  )  j 

%*rite<  1st,  '  sigia'  )  j 

tor  K  :=  i  to  Kb  do  write*  1st,  pM(Kl:7:3  )  ; 
writeln*  1st  )  } 
it  narea  3  8  then  begin 
write*  1st,  '  expected  area  to  til r  ) 
tor  K  s=  1  to  kia  do  write*  1st,  prdtkl:?:i ) 
writeln*  1st  >  ; 

write*  1st,  '  signa'  ) 

tor  k  :=  1  to  Kn  do  write*  1st,  prS[Kl:7:l  ) 
writeln*  1st  5  i 
end  ; 

until  ib  )=  lv  ; 
end  ; 

end  ;  {  procedure  resits  1 


procedure  query(  var  ichc:  integer  )  ; 

(  this  procedure  returns  the  response  to  a  yes-no  question 

ichc  is  set  to  I  tor  yes,  and  1  tor  no  or  <  return  >.  ) 

vnr  ans  :  char  | 
begin 

write*  '  (y/n)  *=>  *  )  j 

repeat  readln*  ans )  until  <  upcaee*  ans )  in  I  'Y'/N'  1 )  or  eoln  ; 
writeln  { 

it  eoln  or  *  upcase*  ans  )  3  'N'  > 
then  ichc  :3  i 
else  ichc  :»  I  ; 
end  ;  {  procedure  query  ) 


procedure  pause  ; 

<  delays  crt  output  until  a  key  is  pressed  ) 
begin 
writeln  ; 

write*  '  press  any  Key  to  continue 

repeat  until  Keypressed  } 
clrscr  j 

end  |  (  procedure  pause  ) 


( . . -  ■-  - ================ -  "r~  . —  } 

procedure  indat  \ 

{  this  procedure  prepares  the  output  tile  and  reads  the  input  tile 
for  AAPHOD.  } 
type  strl4  =  string! 141  j 

var  goodfile  :  boolean  ; 
i,  j,  jr,  yn  i  integer  j 
fnanel,  fn»e2  :  str!4  ; 
dishfile  :  text  ; 

procedure  processfilet  var  tnane  :  str!4;  which  :  strl4  )  ; 

{  initial  processing  ot  file  nane  entered  by  user  1 
var  dot,  goodnaae  :  boolean  \ 
p,  size,  dotpos  i  integer  } 
begin 
drscr  i 
writeln  ; 

writelnt  'for  the  following  entries,  allowable  filenames  may  contain  ', 
'only  capital  letters'  )  ; 

writelnt  'and  niabers.  If  you  enter  lower  case  letters,  they  will  be  ', 
'treated  as  if  they'  >  j 

writelnt  'are  upper  case.  The  format  nust  be  as  follows:'  )  j 
writeln  5 

writelnt  '  OOOOOOOOOCJtXX'  )  ) 

writeln  } 

writelnt  '  where  0:  is  an  optional  drive  specifier,'  )  j 
writelnt  '  X  is  a  digit  (  I  ~  9  )  or  a  letter  t  A  -  Z  >,'  )  j 

writelnt  '  XXXXXXXX  is  a  filename  1  to  8  characters  long,  and' )j 

writelnt  '  .XXX  is  an  optional  1  to  3  character  file  type', 

'  t  not  .BAX  ).'  >  | 

writeln  \ 

writelnt  'Examples  of  valid  filenames:  KSN  MSN. i  AAPN00.DTA 
'BilJAN84.AAP'  )  | 

writeln  | 
writeln  } 

writelnt  'If  u  existing  file  you  seed  to  use  contains  characters  not 
'compatible  with'  )  j 

writelnt  'the  above  format,  you  will  need  to  ABORT  this  program  by 
'pressing  control-C,'  )  { 

writelnt  'and  then  rename  the  file  tomaXe  it  compatible.'  )  i 

pause  ( 

repeat 

goodname  :*  true  } 
dot  i»  false  j 
repeat 
writeln  j 

writet  'Enter  name  for  the  which,  'Pile  =»>  '  )  ; 
readlnt  Isamu  )  j 
writeln  ) 

for  p  i»  i  to  14  do  fnameipl  i»  upcaset  foametpl  )  j 
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repeat  {  delete  blanks  fron  > 

p  :=  post  '  ',  fnane  >  ;  {  filename  } 

if  p  O  I  then  deletet  fnane,  p,  1  )  ; 
until  p  =  I  ; 

until  fnane  <)  "  ;  <  trap  for  carriage  return/blanks  only  ) 
dotpos  :=  post  V,  fnane  )  ;  t  filetype  can  only  be  3  characters  long  } 
if  dotpos  O  I  then  deletet  fnane,  dotpos  *  4,  14  )  ; 
size  :=  lengtht  fnane  )  ; 
p  :=  post  V,  fnane  )  } 
if  t  p  =  2  ) 
then  begin 

if  t  not  t  dotpos  in  t  8,  4. .11  1  )  ) 
or 

t  not  t  fnanetll  in  t  'A'..'Z'  1  )  ) 
or 

t  size  <  3  ) 
or 

t  t  dotpos  =  I  >  and  (  size  )  18  )  ) 
then 

goodnane  i=  false  ; 

if  goodnane  then  for  p  i*  3  to  size  do  begin 
if  not  (  fnanetp]  in  t  '8'. .'9',  'A\.'Z',  V  1  > 
then  goodnane  i=  false  j 

if  dot  and  t  fnanetp]  5  V )  then  goodnane  :=  false  j 
if  fnanetp]  =  V  then  dot  sa  true  j 
end  ) 
end 

else  begin 

if  t  not  <  dotpos  in  (  8,  2. .9  ]  >  ) 
or 

<  size  <  8  ) 
or 

t  t  dotpos  *  8  )  aed  t  size  >  8  )  ) 
then 

goodnane  >*  false  { 

if  goodnane  then  for  p  i»  l  to  lengtht  fnane  >  do  begin 
if  not  <  fnanetp]  in  t  T./9',  'A\.'Z'(  V  1  ) 
then  goodnane  v*  false  ; 

if  dot  and  (  fnanetp)  *  >  then  goodoaae  t*  false  } 

U  fnanetp]  ®  '.'then  dot  s=  true  ; 

•ad  | 

•ad  j 

if  post  '.BAIt',  fnane  )  0  I  then  begin 
goodtane  :a  false  3 

iritelnt  'You  nay  not  enter  a  filename  with  the  filetype  ‘.BAK*  )  3 
eriteln  ) 

iritelnt  'To  use  the  backup  .BAK  file,  rename  it  before  executing 
'this  program.'  >  3 

iritelo  3 


end  ; 
writeln  j 
if  goodnane 
then  begin 

writet  'Confirn  the  correct  filenaiae  is  <  fnane,  '  >  V  )  j 
queryt  p  )  ; 

if  p  =  1  then  goodnane  :=  false  ; 
end 

\  -else  begin 

writelnt  'Invalid  filenane  <  ', fnane,  '  ; 

writeln  ; 

writelnt  'Please  try  again,  or  press  control-C  to  ABORT  this  ', 
'prograa.'  )  j 

end  ; 

until  goodnane  ; 

end  ;  <  procedure  processfile  ) 


function  filexisist  fnane  ;  strU  )  t  boolean  ; 

{  Checks  to  see  if  file  fnane  erisis  on  disk.  Returns  true  if  it  does.  } 
var  exists  :  boolean  ; 
begin 

assignt  diskfile,  fnane  )  | 

($1-)  reset<  diskfile  )  j  ($1  ♦  this  checks  if  the  file  e;<ists) 
exists  i=  ioresult  «  I  j 
if  not  exists  then  begin 

writelnt  'File  <  ',  fnane,  '  >  does  not  exist.  Be  sure  to  specify  the  ', 
'correct  drive  '  )  | 

writelnt  'and  the  correct  file  nane.'  )  ; 
writeln  ; 

writelnt  '  To  ABORT  this  progran,  press  control-C.'  )  j 

pause  | 
end  ) 

filexists  s=  exists  j 
end]  ( function  filexists ) 


begin  (  body  of  function  indat  ) 
drscr  j 
writeln  5 
writeln  ] 

writelnt  '  M  t  L  C  0  N  V  )  ] 

writeln  ; 

writelnt  '  t  o  t  h  e'  )  j 

writeln  ] 

writelnt'  AlflFlELQ  ATTACK  ASSESSMENT 
'PROGRAN')  | 

writelnt  '  aaaaaaaa  15  03383  sasaaooaao 
'a  a  a  a  a  a  a'  )  j 

writeln  ; 
writeln  ; 

writelnt  '  This  prograa  uas  rewritten  in  TIM)  PASCAL  t  Version 
'2.1  )'  )  } 

writeln  ; 
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writelnt  '  by'  )  5 

writeln  i 

writelnt  '  Major  David  A.  Roodhouse,  USAF  and  Captain  Thomas  K.  Green,  ' 
'USAF'  >  } 

writeln  ; 

writelnt  '  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY'  )  ; 

writeln  * 

writelnt*'  WRIGHT -PATTERSON  AIR  FORCE  BASE,  OHIO'  )  } 

writeln  ; 

writelnt  '  February  1985'  )  \ 

writeln  ; 

pause  ; 

writeln  ; 

writeln  ; 

writelnt  'First  you  will  need  to  enter  the  nane  of  the  file  containing  the 
'input  data'  )  \ 

writeln  ; 

writelnt  'for  this  program.  This  could  be  a  file  made  by  running  the  ', 
'program  called'  )  ; 

writeln  5 

writelnt  'AAPMSN,  or  you  may  be  using  some  other  existing  input  file.  ', 
'Then  you  need'  )  ; 

writeln  } 

writelnt  'to  select  the  name  for  the  new  output  file  to  be  generated  by  ', 
'AAFNOD.'  )  | 

writeln  | 
uriteln  ; 
pause  ] 

repeat  processfilet  fnamel,  'MfftOO  Input'  )  until  filexistst  fnwnel  )  ; 
writelnt  'Reading  AAPMOO  input  file  from  disk  files  (  ',  fowl,  '  >'  )  5 
assignt  diskfile,  fnamel  1  j 
result  diskfile  )  ; 

readlnt  diskfile  )  ;  (  Ignore  seed  in  the  input  file  ) 

readt  diskfile,  nsamp,  nsampt,  nflag3,  error,  zalpb,  nelt,  otgps,  apprcw, 
narea  )  | 

for  i  s*  I  to  nelt  do  begin 
for  j  t*  1  to  S  do  readt  diskfile,  tgt(i,j]  )  ; 
for  j  1*  l  to  3  do  readt  diskfile,  itgt(i,jl  )  $ 
if  itgtti.U  «  1 

then  readt  diskfile,  critti.U,  crittf,21  ) 
else  begin 

critCi ,11  Is  I  i 
critlMJ  1=  I  | 

end  | 

tgt(i,3)  s*  tgt(i,33  I  pi  /  181  1  (  convert  degrees  to  radians  1 
end  ; 

readt  diskfile,  ncp,  lv,  npatt  )  j 
for  i  i=  I  to  npatt  do  begin 
for  J  ja  1  to  4  dc  readt  diskfile,  ipat(i,jl  )  { 
for  j  j*  l  to  il  do  readt  diskfile,  patUi,ji  )  j 
for  j  j*  I  to  ipat(i,U  do  begin 
ji*  i«  2  i  J  ♦  9  \ 

readt  diskfile,  patt(i,jri,  pattti,  jr  Mil  j 


readt  diskfile,  a,  n  )  ; 

-for  i  f  1  to  r  do  begin 

for  j  f  l  to  n  do  reid(  diskfile,  crtabti,j,l]  )  ; 
for  j  f  1  to  n  do  readt  diskfile,  crtab[i,j,21  >  ; 
end  ; 

read<  diskfile,  axptch,  irepr,  npass  )  \ 
for  i  f  i  to  npass  do  begin 
for  j  f  1  to  5  do  readt  diskfile,  passli,jl  )  ; 
readt  diskfile,  ipassti,ll,  ipassli,2],  GpxCil  )  ; 
passti ,31  f  passU, 31  j  pi  /  188  j  t convert  degrees  to  radians  1 
passti,41  f  passti, 5]  j 
end  j 

closet  diskfile  )  ; 
repeat 

processfilet  fnane2,  'New  Output'  )  \ 
assignt  1st,  fnaoe2  )  ; 

<41-1  resett  1st  )  |  (41+  see  if  file  already  exists  1 
goodfile  f  ioresult  <>  8  j  <  want  the  file  not  to  exist  1 
if  not  goodfile  then  begin 

uritet  'File  <  ',  fnaae2,  '  >  already  exists.  Erase?'  )  ; 
queryt  yn  )  ; 
if  yn  =  I  then  begin 

writet  'Are  you  SURE  you  want  to  erase  file  (  ',fnaoe2,  '>?'); 
queryt  yn  >  ; 
goodfile  f  yn  *  I  | 
end  ; 
end  | 

until  goodfile  | 
rwritet  1st  )  ; 

writelnt  1st,  fnaatl,  '  was  the  input  file  for  the  following  run.'  )  ; 

writelnt  1st  )  ; 

drscr  j 

writetn  j 

writeln  ; 

writelit  'The  output  file  is  called  fowee2,  '•'  )  | 
writeln  i 
writeln  } 

writelnt  'NUMBER  CRUNCHING  IN  PROGRESS  !'  )  j 
writeln  ) 

end  ]  t  procedure  iadat  ) 


begin  (  — t — n - =  ■  MAIN  PROGRAM  ■ — * - t - } 

{  —  input/initialize  —  } 

indat  ;  {  read  input  tile  and  set  up  output  tile  ) 
initialize  ; 

{  test  to  see  it  Uniting  nonte  carlo  loops  is  both  desired  (ntlag3=i) 
and  appropriate  (nsanp  >  2il).  it  so,  set  tlags  and  set  initial 
aonte  carlo  loop  Unit.) 


it  <  (ntlag3  =  1)  and  (nsanp  >=  281)  )  then  begin 
ntlagi  :=  I  ; 
ntlag2  :=  I  j 
nnax  :=  nsanp  ; 
nsanp  :=  218  j 
end  { 

{  — nonte  carlo  loop  —  828  on  (it)  — ) 

85: 

tor  it  nsaapr  to  nsanp  do  begin 

{  — initialize  variables  which  get  reset  each  nonte  carlo  rep  —  ) 
nsanp2  ia  it  j 

tor  1  :»  l  to  nelt  do  decartU  :=  tgtn,4)  8  tgttl,5]  j 
tor  1  :»  l  to  3  do  begin 
ipcuttll  s=  8  ; 
ihitlll  :*  8  } 
aaindl  :=»  8  \ 
apmintll  :«  8  | 
apralll  :*  I  j 
end; 

a  :=  8  j 

al  i-  8  | 

Zz  i3  I  ; 

(  —set  nwber  ot  hits  per  target  equal  to  zero —  ) 
tor  1  :*  1  to  nelt  do  InhitstU  :*  8  | 

(  —  coapute  iapact  points  ot  Weapons —  ) 
tor  i  :»  t  to  span  do  begin 

(  ——see  it  a/c  survived,  it  yes,  change  next  pass  ps  to  reattach  ps 

it  not,  change  next  pass  ps  to  8.8, 

aad  log  no  bits  tor  this  pass  — 

oxtp  i3  ipassti ,23  j 
it  randan  )*  pass! i, 41 
then  begin 

passtnxtp,41  i3  8  i 
goto  371  | 
end 

else  pa$s(axtp,41  :=  passli,51  j 
Optra  i*  ipassti, 11  j 
ot*ep  !=  ipat(nptra,ll  j 
nbaa  :»  ipattnptro,21  \ 
ftuj  :=»  patt(nptra,5)  } 
rain  :■  patt(npirn,4)  j 
vaaj  «3  patttnptm,71  j 


vnin  :=  pattCnptrn, 81  ; 
kode  :=  ipatCnptrn,41  ; 

{  — locate  stick  pattern  center —  1 
passxt  :=  passU,U  ; 
passyt  :=  pas$Ci,21  ; 
it  npxtil  <=  ncp  then  begin 
nttt  :=  npxtil  ; 
trisub(dap)  5 

passxt  :=  passxt  ♦  dap  k  cost  tgttnttt ,3]  )  ; 
passyt  :=  paxssyt  4  dap  !(  sint  tgttnttt, 31  )  ; 
end  ; 

sinp  s=  sint  passl i ,3]  )  5 
cosp  :=  cost  passti,31  )  ; 
it  kode  =  3 

then  begin  <  -  -  -  -  -guided  aunitions...  } 
craxyn  :=  random  ; 
it  crazyn  <=  pattCnptrn,?J 
then  nornn  tr,  pattCnptrn,  11,  d,  pattCnptrn, 21  ) 
else  it  crazyn  t=  pattCnptrn, 81 
then  noran  tr,  pattCnptrn, 31,  d,  pattCnptrn ,41  ) 
else  noran  tr,  pattCnptrn, 51,  d,  pattCnptrn, 61  )  ; 
x  :=  passxt  4  p  k  cosp  4  d  I  sinp  | 
y  :=  passyt  ♦  r  k  sinp  -  d  k  cosp  | 
end  t  guided  munitions  1 

else  begin  { - dumb  boobs...  1 

noran  tr, pattCnptrn, H,d, pattCnptrn, 21)  ] 
xctr  !=»  passxt  ♦  r  *  cosp  ♦  d  k  sinp  j 
yctr  !■  passyt  4  r  I  sinp  -  d  k  cosp  j 
end  ; 

< - locate  weapon  impact  or  center  ot  dispenser  pattern——-  J  . 

tor  k  :=  t  to  nwep  do  begin 
it  randoo  >  pattCnptr«,Vl  then  goto  361  j 
if  kode  <  3  then  begin 

norant  r,  pattCnptrn, 31,  d,  pattCnptrn, 41  )  ; 
k2  1=  2  k  k  ♦  ?  | 

xiwod  i°  xctr  <  t  patt(nptro,k2)  4  r  )  k  cosp 

4  t  pattCnptrn ,k24 11  ♦  d  )  M  sinp  ; 
yiwod  t*  yctr  4  <  pattCnptrn, k21  4  r  )  k  sinp 

-  <  pattCnptrn ,k24 11  4  d  >  k  cosp  ; 

ead  ; 

(  ——locate  iapacts  (nboa  »  I  or  aobr  tmbleti/cbu  shell) - ) 

for  ni  t*  1  to  nboo  do  begin 
if  kode  <  3  then  begin 
X  i»  xiwod  f 
y  i*  yiwod  ) 
if  nboa  )  1  then  begin 
if  randoa  >  pattCnptrn, ill  then  goto  351  5 
xl  1=  2  k  roaj  *  ran  doe  -  nuj  ; 
yl  sa  2  k  min  k  randoa  -  rain  | 
if  kode  3  2  then  begin 

xlylol  13  (  sgrtxl)  I  sqrtrtuj)  )  4  (  sqr(yl)  /  sqr<r«in>  )  j 
if  xlyiol  )  1  then  goto  281  ; 


281: 


if  (  vnaj  >  0  )  and  <  win  >  8  )  then  begin 

xlyiil  s=  <  sqr<xl)/sqr<vi»aj)  )  *  (  sqr<yl)/sqr<vt»in)  )  ; 
if  xlyiil  <  1  then  goto  288  ; 
end  ; 
end  ; 

x  s=  x  ♦  xl  X  cosp  ♦  yl  3£  sinp  } 
y  :=  y  ♦  xl  31  sinp  -  yl  l  cosp  5 


- check  for  any  hit  or  nearniss - ) 

for  1  s=  1  to  nelt  do  begin 
sint  1=  sin(tgttl,33>  ;  . 
cost  f  cos<tgtn,31)  ; 
xp  f  x  -  tgtt1,ll  } 
yp  f  y  -  tgtll,21  j 
ti  f  xp  I  cost  ♦  yp  I  sint  | 
xp  f  yp  II  cost  -  xp  i  sint  5 
itgttp  f  itgttl,23  ; 
jupntp  F  ipatCnptrn,31  ; 
if  <  1  >  ncp  )  and  <  1  <=  Iv  ■*  ncp  ) 
then  begin 

if  (  abs(tl)  -  crtabCitgttp,jwpntp,2]  >  8,5  i  tgttl.4]  ) 

or 

<  abs(xp)  -  crtabtitgttp,M»tp,2)  >*  8.5  I  tgttl,5]  ) 
then  goto  348  j 
end 

else  begin 

if  <  abs(tl)  -  crtiMitgttp,j*potp,ll  >  8.5  i  tgttl,4] ) 

or 

(  abs(xp)  *  crUbUtgttp,i»*»tp,l3  >  8.5  I  tgttl,5] ) 
then  goto  348  ; 
end  } 

11  f  n  ♦  I  | 
if  i  <«  888  then  begin 
saveli, 11  f  tl  ♦  8.5  II  tgttl,41  j 
saveti»l21  f  xp  ♦  8.5  X  tgt(l,51  } 
uveta,31  f  1  } 
i savin!  f  ipattnptrn,31  t 
countrlll  f  couatrtl]  ♦  1  ; 

Inhitslll  f  Inbitstll  4  1  \ 
end  ) 

348)  end  |  (  nelMoop  1 
if  a  )  888  then  begin 

wri t*)n<  Ist.'Hore  than  888  hits  were  found  in  pass', i»4,V  ) 
uritelnf  1st,  '  Excess  were  Ignored.'  )  } 

•  F  888  | 

end  \ 

358) 

end  i  (  «l  loop  ) 

388) 

end  j  (8  loop  ) 

328: 

end  )  (  i  loop  ) 


if  n  =  8  then  begin 

writelnt  1st,'  No  hits  during  attack,  nonte  carlo  iteration:  ',it:4  ) 
goto  811  ; 
end  { 

- fission  is  complete - } 

sortta,  1,  3,  1,  2)  ; 
for  j  :=  1  to  ntgps  do  begin 
gpadaclj]  :=  8  ; 
gphtacij]  :=  I  ; 
end  } 

for  i  :=  1  to  nel t  do  begin 
itgtgp  :3  itgtli,3]  ; 

gphtaclitgtgpl  :=  gphtactitgtgp]  ♦  InhitsCil  ; 
sightsli]  :=  sights!:]  ♦  sgrdnhitslil)  5 
end  ; 

for  j  :=  1  to  ntgps  do  gphtslj]  :=  gphtslj]  ♦  sqrtgpbtactj])  } 

- initial  conditions  for  bda  ) 

1  s=  1  ; 

K8  :=  l  | 
cuts  :=  8  | 
fill  :=  8  j 
erf il  1  :=  8  ; 
arfils  :=  8  ; 
suvun  s*  8  } 

- loop  on  each  impact,  and  group  on  target  elmeot - } 

for  k  :«  l  to  ■  do  begin 
if  (  sevelk,31  )  1  )  or  <  k  »  •  >  then  begin 
tie 

n  »» It  *  1(1 1 

if  savelk,31  =  1  then  n  :=  n  ♦  1  j 
— damage  aiMi««(~~* —  ) 
if  itgUl.U  M 
then  begin 

- tgt  1  is  a  building  or  noe-pawement — ) 

if  <  a  )  I  )  and  (  decarll)  >  8  )  then  bldg  \ 
differ  :=  tgtU,4)  8  tgt(l,5)  -  decarCU  j 
afrit)  ;*  afrtl)  «  differ  | 
sigifrtl)  :«  sigafrtl)  ♦  sqr(diffar)  j 
itgtgp  :*  itgUI,31  \ 

gpedeclitgtgp]  t*  gpedatl itgtgp)  ♦  differ  j 
end 

else  begin 

- tgt  1  is  a  pevweot— - ) 

if  n  <  1  thee  begin 
if  1  <*  ncp  then  begin 
xcll)  :=*  1,5  i  <  tgttt ,43  *  crittl, I)  )  ; 
yell)  ia  8.5  I  (  tgttt ,51  -  crittl ,2)  )  ; 
end  ; 

goto  731  | 
end  j 

sortt  o,  18,  1,  2,  3  )  { 


if  narea  =  8 

theft  ovlapt  k8,  itgit! ,23,  I,  8,  trunct  tgtCI ,43  ), 
trunct  tgttl ,51  >,  ft,  suorun  )  ; 

- tixiuays  (ninor  pavtoents) 

find  wandering  path  only  for  taxi-only  tgts  (critn,U=f  ) 
if  crittl.ll  <  1 
then  begin 

aincutn,  hi,  1,  2,  itgtU,23,  critCI ,21,  tgttl, 51  )  j 

arfils  i=  arfill  j 

fill  !=  nfill  i 

rhittll  J=  rhittll  +  fill  ; 

ntxwy  i=  1  -  ncp  j 

sigfiltntxwyl  :=  sigfiltntxwyl  ♦  sqr(fill)  ; 
rcuttll  !*  rcuttll  f  cuts  | 
sigctstntxwyl  :=  sigctstntxwyl  ♦  sqr(cuts)  ; 
end 

else  begin 

— . — runways  (aajor  pavaowts) 

search  for  a  dear  strip  <length=crittl,tl  .x.  width=crittl,23)  - 
al  j=  k  -  1  j 

if  (  k  =  a  )  and  <  savetn,33  3  1  )  then  oi  :=  ai  ♦  1 
ipcuttll  s=  8  ; 
ihittll  J-  I  ; 
aaintll  :=  I  } 
apraintll  i=  I  { 
apratll  i=  I  j 
for  Kk  i=  l  to  4  do 
for  hk2  i®  l  to  2  do 
nuaaprtkk,kk2l  »a  •  i 
clstrp  ; 

if  Min  )  I  then  begin 
rcuttll  i3  rcuttll  ♦  1  | 
ipcuttll  }=  1  5 
end  t 

rhittll  !=  rhittll  f  Min  } 
ihittll  s*  Main  j 
sunstp  J»  I  i 
k»t  t*  k  -  l  j 

if  (  k  =  «  )  ud  (  wvetk,31  =  1  )  then  la!  a*  k  } 

ka  s*  l  j 

aflag  $-  8  i 

xsl  ia  act  1 1  | 

ysl  sa  yctll  } 

**?  !»  xctll  -  erittl,!!  \ 
ftl  yctll  ♦  crittl,21  } 
khtll  !=  ki  $ 


548: 


if  (  kpl  <s  a  )  and  <  fail  (=  is )  then  begin 
itgttp  p  itgtfi,2]  5 
lor  kw  :=  kpl  to  kni  do  begin 
jwpntp  :=  isavlkw]  ; 

il  save[kw,13  +  crtablitgttp, jwpntp, kal  <=  xs2 
then  goto  588  ; 

il  saveCkUyll  -  crnax  >=  xsl  then  goto  598  ; 
il  <  savelkw,13  -  crtablitgttp, jwpntp, ka]  >=  xsl ) 
or 

<  savelkw,23  ♦  crtablitgttp, jwpntp, ka-3  <=  ysl  ) 
or 

<  savelkw,2J  *  crtablitgttp, jwpntp, kal  >=  ys2  ) 
then  goto  586  ; 

kz  p  kz  ♦  1  ; 
il  kw  <>  kz  then  begin 
si  p  savelkw>13  ; 
s2  p  savelkw,21  ; 
s3  p  s*vetkw,3J  5 
itt  p  isavlkw]  ; 
kzp  p  kz  ♦  1  i 
lor  k8  p  kzp  to  kw  do  begin 
kk  p  kw  -  k8  +  kzp  j 
savetkk,U  p  saveikk-lji]  ; 
savetkk,23  p  saveikk-1,23  \ 
save[kk,33  p  save£kk-t,3]  ; 
isavlkk]  p  isavlkk-13  j 
end  |  C  k8  loop  3 
savetkz,!]  p  si  ; 
save£kz,23  p  $2  ; 
savelkz,31  p  s3  } 
isavtkzl  p  itt  ; 
end  ; 

589:  end  ;  (  kw  loop  ) 

end  ; 

590:  il  nllag  3  6  then  begin 

kzt  p  8  | 

il  kz  0  khlll  then  begin 
kzt  p  kz  -  khI13  ; 
kk  p  khm  ♦  1 5 
khm  p  kz  ; 
il  narea  <=  8 

then  ovlapl  kk,  itgtI1,23,  xcC13  -  crittl.l],  yeti], 
trunel  critn ,  13  ),  truncl  critU,23  >, 
kzt,  sunstp  )  ; 
astpCU  p  astptl]  ♦  sunstp  j 
sigasptlJ  p  sigasplU  ♦  sqr  (sunstp)  ; 
mint  11  p  sunstp  5 
end  ; 

nllag  p  i  | 
ka  p  2  j 

kpl  p  kpl  ♦  kzt  5 
kz  p  kpl  -  l  1 
kzi  p  kz  s 
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»1  :=  xctl 3  -  ci*itn , n  5 
if  xsi  >=  cpitn,21 
then  begin 

xs2  i=  crittl ,21  i 
goto  568  ; 
end 

else  goto  648  ; 
end  ;  {  if  it  libel  598  } 
fczt  !=  8  j 
nfill  s»  8  j 
if  kz  0  kzl  then  begin 
k2t  :=  k:  -  kzt  ; 
kk  ;=  kzl  ♦  1  j 
if  nflig  )=  3 

then  sorttkzt,  kk,  2,  1,  3)  ; 
for  ii  :*  1  to  kzt  do  begin 
sivetkk  ♦  ii  -  1,21  s=  sivetkk  ♦  ii  -  1,21  -  ysl  j 

Sivetkk  ♦  ii  -  1,11  i=  sivetkk  4  ii  -  1,1]  -  xs2  i 

end  j 

if  aflig  <=  2 

then  lincwtkit,  kk,  1,  2,  itgttt,21f  ipprw,  crittl  ,23  > 
else  nincwtkzt,  kk,  2,  1,  itgttl,21,  apprcw,  crittl, 2] ) 
for  ii  s=  1  to  kzt  do  begin 
sivetkk  ♦  ii  -  1,21  :=  savetkk  ♦  ii  -  1,21  4  ysl  5 

sivetkk  ♦  ii  *  1,11  s=  sivetkk  ♦  ii  -  1,11  4  *s2  1 

end  ; 

irfiSs  j*  irfils  t  arfill  j 
end  5 

nimor[i*flig,23  :=  kzt  1 
kz  :a  kzl  ♦  nfill  1 
kzl  i«  kz  1 

OMiprtafUg,!}  :=  nfill  ; 
fill  sa  fill  4  nfill  } 
if  kz  a  bet  then  goto  671  5 
esse  of lag  of 

1  !  goto  641  ; 

2  i  goto  658  ; 

3  \  goto  668  | 

4  ;  goto  671  { 

end  5  (  case  1 

648i  nflig  2  | 

nfill  i*  I  j 
kpi  ia  kpi  «  kzt  1 
xst  i*  tgttl,41  -  crittl, 21  ; 
if  xcCU  ♦  crittl, 21  <*  tgttl,4J  then  begin 
xs2  !-  act  II  } 
goto  561  1 
ted  j 

658t  eftag  3  \ 

kpi  t°  kpi  -  n»apr(l,21  4  mmprtl,ll  4  afill  \ 

(call)  sorttk  -  kpi,  kpi,  1,  2,  3  )  { 
xsl  sa  crittl, 21  { 
ysl  sa  8  \ 
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xs2  :=  8  j 

ys2  :=  yell]  ♦  critn ,23  5 
goto  568  ; 

668s  nf lag  :=  4  j 

kpl  :=  kpl  +  kzt  ; 

xsl  :=  tgtll,41  ; 

xs2  :=  tgtll,41  -  critll,2J  ; 

goto  S68  ; 

678:  kz  :»  khlll  ; 

if  <  irepr  >=  18  )  and  <  fill  >  8  >  then  begin 
witelnl  1st,  '  target  ',1:3,'  khtl)  =  ',khl11:4, 

'  i£»  =  'fM84,'  fill  =  ',fiU:7s8  )  ; 
for  kk  1=  1  to  n  do 

writeln<  1st,  '  ', savelkk, 11:18:2, savelkk, 21:18:2, 
savelkk,33:18:2  >  ; 
kz  :=  khlll  *  trundfill  4  8.81)  ; 
if  1  )  1  then  begin 
k8  :=  tranclfill  4  8.11)  } 
for  kzl  :=  1  to  k8  do  begin 
kk  s=  kl  ♦  kzl  -  l  5 
si  :=  savelkk,!]  5 
s2  :=  savelkk, 21  ; 

$3  :=  savelkk, 31  ; 
is  :a  isavlkk]  } 
kzp  !=*  khtll  +  kzl  4  1  5 
for  kv  :*  kzp  to  kk  do  begin 
toil  t*  kk  -  hi  4  kzp  { 
sawlkwl,ll  s*  savelkul  -  1,  U  j 
savelbrt;21  :=  savelkul  -  1,  21  j 
savetkMt,3)  :»  stveltoil  -  1,  31  ; 
isavlhill  :»  isavlhil  -  11  5 
end  1 

kzp  1*  kzp  -  1  j 
savetkzp,|]  ia  si  \ 
savetkzp,21  ;*  s2  1 
savelkzp,31  1=  s3  ; 
isavtkzpl  s*  is  5 
end  i 
eed  | 

end  {  (  if  near  label  671  ) 
sigcrtUJ  1*  sigcrttl)  ♦  sgrtmia)  5 
enapfUU  enapfltU  4  fill  ; 
uapflUl  :s  snapfUU  4  sgr(fill)  } 
aprtintU  **  fill  1 
goto  721  | 

end  j  1  if  critil,ll  <  1  else  begin  ) 

721:  atfclll  t*  attain  *  stmruo  j 

itgtgp  :=  itgtll,31  } 

gpadaditgtgpl  t*  gpadaclitgtgpl  1  suartm  s 
sigaditn  t=  sigattalll  *  sqr(suaruo)  } 
rapftn  53  rapftll  4  arfils  ; 
signaftll  t*  signaftll  4  sgrlarfils)  ; 
if  critCl ,13  )  8  thco  aprail)  :a  arfils  1 
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end  ;  {  else:  target  1  is  pavaent  } 

731: 

I  :=  1  ♦  1  i 
M  :=  K  ; 
till  :=  I  } 
arfill  :=  I  ; 
arfils  :=  i  ; 
cuts  i-  I  j 
suarun  §  ; 

it  (  save£k,31  >  1  >  or  <  <  k  3  a  )  and  (  savetk,31  =  1  )  )  or 
<  <  1  <=  nelt  )  and  <  k  3  a  >  )  then  goto  431  ; 
end  j  {  it,  at  start  ot  Hoop  } 
end  ;  <  It -loop  ) 

tor  j  :=  1  to  ntgps  do  gpacbsij]  :=  gpadnstjl  ♦  sqrtgpadactjl)  ; 
ii3  p  1  5 

{ - coapute  conbined  probabilities  tor  runway,  taxiway, and  sod - } 

it  ncp  >  1  then  begin 
i3  :=  3  | 
kj  :=  I  5 
itin  ?=  I  j 
tor  jj  :=  i  to  2  do 
tor  jk  s=  i  to  ncp  do  begin 

{  - - only  interested  in  1*2  <Kj=l>,  1*3  <kj=2) ,  2*3  <kj=3> - ) 

it  jj  )=  jk  then  goto  791  ; 
it  ipcuttii31  3  I  then  goto  741  ; 
it  ipcuttjj]  0  I  then  ii3  :»  jj  ; 
it  ipcuttjkl  0  1  then  ii3  »*  jk  ; 

741:  it  (  ipcuttjj]  0  1  )  or  (  ipcettjk]  0  1  )  then  goto  781  ; 

{ - - -both  surfaces  are  cut - } 

i3  p  i3  M  j 

{  — ii  indicates  Jiich  surface  has  the  ainiaua  nuaber  of  craters  to 

repair  for  coabioatioos  of  2  surfaces  ad  ii3  for  all  3  surfaces-—  } 
ii  i*  jj  | 

if  ihittjj]  >  ihittjkl  then  ii  :>  jk  { 
if  ihittiiS]  )  ihittjkl  then  ii3  p  jk  ; 

< - - — distribution  of  aiiiaua  nuaber  of  craters— - } 

771:  icutCkj,ii)  p  icuttkj.iil  ♦  i  \ 
i2cuttkjl  p  iZcwttkjl  4  i  t 
sgcrattkjl  i=  sgcrattkjl  ♦  sqr(ihittiil>  ; 

{ - niDieta  nuaber  of  craters - — - ) 

icrattkjl  p  icrattkj]  ♦  ibitliil  ; 

i - — area  of  craters - -  ) 

seinatkj]  p  sainatkjl  ♦  fcintiil  | 
sgeiuitkj]  p  sgainatkj]  ♦  sqrtaainlii])  | 

(  — — ainiaua  nueber  of  craters  oo  approach  to  operational  strip — —  1 
sapr(kj)  p  saprtkjl  ♦  apraintii]  } 
sgaprtkjl  p  sgaprtkj]  a  sqrtapraintiiJ)  ; 

{  — - aria  of  craters  oo  approach—— —  ) 

sapratkj]  p  sapratkjl  *  apratii]  j 
sgapralkj]  p  sgapratkj]  ♦  sgr(apratiil)  t 
if  ifio  3  I  then  goto  811  ; 

781 t  kj  p  kj  ♦  i  j 

if  t  jj  0  2  )  or  (  jk  0  3  >  then  goto  791  ; 
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to!  ■ 


v  v 


{  — -ill  coabinations  of  2  surfaces  have  been  looted  at.  if  all  3 
surfaces  have  been  cut  <i3=3)  conpute  statistics  for  all  3  ic  exit 
loop  (ifirpl) —  ) 
if  i3  <>  3  then  goto  881  ; 

Kj  :=  4  5 
ii  :=  ii3  ; 
ifin  j=  1  j 
goto  778  j 

798 i  end  5  {  jit-loop  ) 
end  ;  <  if  ncp  )  1  } 

818: 

repair  ; 

■  :=  a8  ; 

«8  s=  I  j 
Ki  :=  •  i 
818s 


if  it  aod  nsiflpt  =  8  then  resits  5 
end  j  {  it-loop  > 

{  — test  to  see  if  Uniting  wrote  carlo  loop  was  desired 
and  appropriate,  if  not,  avoid  subroutine  'ncanp" —  ) 
if  (  nflag3  =  l  )  and  (  nsaop  )=  288  )  then  begin 
{  — tests  on  flags  set  inside  subroutine  "ncaap*  to  direct 
either  return  to  nonte  carlo  loop  or  pass  on,  based  on 
estiaate  of  iterations  required —  J 
if  nflag2  =  I  then  nciap  j 
if  nflagi  =  I  then  begin 
nflagi  1=  1  j 
goto  89  ; 
end  ; 
end  ) 

{  — calculate  and  print  statistics —  ) 

if  it  nod  nsaapt  <>  8  then  resits  ; 

closet  1st  )  j  {  needed  due  to  assigning  1st  as  a  disk  file  ) 
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-  A’^ 


{====  ==«= . . -u.  —  :  - - - } 

(—  ■  "  -  FILE  AAPTGT1.FAS  II  Feb  85  -  --  —  ) 


prograa  aaptgt  ; 

type  strM  =  string!  MI  ;  {  for  filenaae  I 

codes  =  set  of  8.. 12  ;  {  codes  For  irepr  ) 

var  {  VARIABLE  DECLARATIONS  AND  KEY  } 

disk-file  :  text  ;  {  disk  File  variable  I 

new  :  boolean  ;  <  true  iF  new  tgt  base  being  created  } 

repaircodes  :  codes  ;  {  repair  codes  For  irepr  I 

crit  i  array!!.. 112,1.. 21  oF  real  ;  {  critical  takeoff,  taxi  distances  I 

itgt  :  arraytl.. 112,1. .31  oF  integer  ;  <  target  category,  hardness  code,  ) 

{  and  target  group  } 

tgt  :  array!  1..U2, 1..S3  oF  real  ;  <  coords,  axis,  t<  diaensions  of  target) 

fnaae,  backup  :  strM  ;  {  For  File  nanes  ) 

ichc,  {  identiFies  desired  choice  ) 

irepr,  f  code  For  repair  priorities  ) 

lv,  { amber  oF  taxi  surFaces  ) 

axptch,  (  nuaber  oF  runway  patches  available ) 

•area,  (  Flagi  I  =)  coapute  TOL  daaage,  l  =>  don't  coapute  ) 

nbldg,  (  nuaber  oF  buildings  ) 

•cp,  {  nuaber  oF  takeoff/landing  capable  surFaces  ) 

nelt,  <  total  nuaber  oF  targets  ) 

nhard,  <  nuaber  oF  hardness  levels  (total)  ) 

nhardp,  (  nuaber  of  hardness  levels  For  surFaces  ) 

npprew,  <  ain  taxi  width  required,  1,1  suppresses  search  For  taxiways  ) 
ntgps  (  nuaber  of  distinct  target  groups  ) 

s  integer  j 

(  variables  local  to  procedures! 


integers  : 

iopt  identiFies  desired  option 

i,  j  loop  counters 

jehc  identiFies  desired  choice 

nabr  desired  target  to  delete,  add  or  insert  before 

p  used  For  string  auipelatioas  <  For  fileeaaes  > 


reals: 

xl,  x2,  yl,  y2 


coordinate  conversion  variables 
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procedure  realreadt  var  r  :  real  >  ; 

{  Procedure  to  read  a  real  value  with  error  checking.  } 
begin 

repeat  <8H  readlnt  r )  <810  until  (  ioresult  =  8  ) 
end  ;  {  procedure  real read  } 


procedure  intreadt  var  i  :  integer  >  ; 

{  Procedure  to  read  an  integer  value  uith  error  checking.  } 
begin 

repeat  {$1-}  readlnt  i  )  <810  until  <  ioresult  =  8 )  | 
end  :  (  procedure  intread  } 


procedure  init  ; 

<  This  procedure  initializes  AAPT6T  variables.  > 
var  i  :  integer  ; 
begin 

repaircodes  f  (  8.. 2,  18.. 12  1  }  <  acceptable  values  f or  irepr  } 
narea  :=  8  ; 
nhldg  f  8  ; 
ncp  f  8  ; 

Iv  f  8  j 
nelt  F  8  j 
ntgps  f  8  { 

for  i  f  1  to  112  do  begin 
criUi.U  f  8  $ 
critti,21  f  8  j 
end  | 

end  }  (  procedure  init  ) 


procedure  pause  ; 

<  Delays  crt  output  until  a  key  is  pressed  ) 
begin 
sriteln  | 

uritet  '  press  any  key 

repeat  until  teyprewed  \ 
clrscr  | 

end  }  (  procedure  pause  ) 


continue 
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a. 


9 


t* 


35 


I 


prxedure  hardness  j 
(  prist  hardness  infornation  } 
var  i  s  integer  ; 
begin 
writeln  ; 

Mritein<  'Hardness  Cade  Target  Type'  )  ; 

writelnt 't— —  - * )  { 

•for  i  i=  1  to  nhardp  do  writelnt  i:7,  ' 

for  i  i=  nhardp  *  1  to  nhard  do  writelnt  is?,  ' 

writeln  ; 

end  i  t  procedure  hardness  1 


procedure  tgtaatrix  \ 

{ print  target  tutrix  data  } 
var  i,  j  i  integer  ; 
begin 
drscr  j 

for  i  s=  1  to  nelt  do  begin 
if  i  Mod  II  a  1  then  begin 
writeln  j 

writelnt  'T6T  X  Y  AXIS 

'  TUT  CHIT  DISTANCES'  )  j 
writelnt  '  I  COORD  COORD  (DEB)  LENGTH 

'  6MUP  LENGTH  WIDTH'  )  j 


pavenent'  )  j 

noo-paveaent' )  j 


WIDTH  TYPE  CODE', 


writelnt  ' — 


end  | 

writet  i:3  )  j 

for  j  s*  I  to  3  do  writet  tgUi,j)i8ti )  { 
if  itgUi.ll  •  I 
then  writet  '  BLOG'  > 
else  if  criUi,U  t  1 
thee  writet  '  W  ) 
else  writet'  TOL' >  | 
writet  itgUi,2])3,  itgtfi,31id)  \ 
if  itgtU.il  *  I  thw  writet  critti,llstlsi,  cHUi,2h?U )  t 
writeln  t 

if  i  nod  II  *  •  thee  pause  ; 
end  t 

if  i  nod  II  <)  I  thee  pause  j 
end  ;  t  procedure  tglutrix  ) 
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procedure  query(  var  ichc:  integer;  ix  :  integer  )  ; 

{  This  procedure  returns  responses  to  several  categories  ot 
yes-no  and  aultiple  choice  questions.  ) 
procedure  yn  ; 

*  Promts  tor  yes  or  no  with  *  <y/n)  =>  * 

Sets  ichc  based  on  response:  y  =>  I,  n  =>  !,  (return)  =)  8  ) 
var  ans  :  char  ; 
begin 

write*  '  <y/n>  =>  '  )  ; 

repeat  readln*  ans )  until  <  u pease*  ans )  in  C  'Y','N'  1 )  or  eoln  ; 
writeln  ; 

it  eoln  or  <  upcase(  ans  )  =  'N'  ) 
then  ichc  s=  1 
else  ichc  i-  8  ; 
end  ;  {  procedure  yn  ) 

begin  *  body  of  procedure  query  } 
ichc  :=  5  ;  {  initialize  out  of  range  ) 

case  ix  ot 

1  :  yn  ; 

2  :  begin 

writeln  ; 

write*  'Do  you  want  to  update  this  value?'  )  ; 
yo  1 

tad  ; 

3  :  begin 

repeat 
writeln  ; 

writeln*  'The  number  ot  targets  currently  detined  »  nelt, 

V  >  I 

writeln  ; 
it  nelt  )  8 
then  begin 
writeln  j 

writeln*  'Target  database  editing  options.'  >  ; 
writeln  ; 

writeln*  '  8:  Delete  a  target.'  )  ; 

writeln*  '  ii  Add  a  target.  (  Maxi«ua  ', 

'112  )'  )  | 

writeln*  '  2:  Insert  a  target.'  )  ; 

writeln*  '  3t  Review  the  target  aatrix.'  >  ; 

writeln*  '  4t  Finish  k  save  the  new 

'database.'  )  ; 

write*  'Eater  choice  «•)'){ 
intread*  ichc  )  ; 
drscr  ; 

end 

.pa 
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else  begin 

writelnt  'You  now  mist  add  at  least  one  target.'  )  ; 
ichc  :=  1  ; 
end  ; 

until  ichc  in  C  8. .4  1  ; 
writeln  ; 
end  ; 

4  :  begin 

repeat 

uritelnt  'There  are  two  ways  to  enter  the  target  coordinates.'  )  \ 
uriteln  ; 

uritelnt  '  It  Target  center  coordinates.'  )  ; 

uritelnt  '  it  End-nidpoint  coordinates.'  )  ; 

uritet  'Enter  choice  =0  '  )  | 

intreadt  ichc  )  ; 

drscr  \ 

uriteln  ; 

until  ichc  in  t  8..11  ; 
end  | 

5  t  begin 

repeat 
uriteln  | 

writelnC  'Your  options  tor  this  progran  are:'  )  ; 
uriteln  j 

uritelnt  '  It  Create  a  new  target  base.'  )  j 

viri taint  '  U  Update  an  existing  target 

'bast.'  )  | 

uriteln  j 

uritet  'Enter  choice:  *»>  ' )  j 
iatreadt  ichc  )  } 
until  ichc  in  t  I..I  ]  } 
uriteln  j 
end  ; 


6  :  begin 

uritet  Koeld  you  like  a  review  ot  input  pronpts  and  options?'  >  j 
5«  l 

elrscr  j 
writeln  j 
e*d  ; 


end  }  (  case  ) 
id  ;  i  procedure  query  ) 
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} 


procedure  info*  ix  :  integer  )  ; 

{  This  procedure  dec] utters  the  sain  progran  and  procedures 
by  placing  text  in  a  separate  location.  } 
begin 
case  ix  of 

1  »  begin 

drscr  5 
writeln  j 

writ«ln<  '  A  A  P  T  6  T  TAR6ET  PR08RAH'  )  5 

writeln*  '  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ='  )  j 

writeln  j 
writeln  ; 

writeln*  'This  progran  creates  a  target  base  for  the  nodified 
'version  of  the  Attach'  >  j 

writeln  ; 

writeln*  'Assessnent  Progran  *  AAPHOD.  You  oust  also 
'generate  a  weapons  base  with'  )  } 

writeln  ; 

writeln*  'AAPMPtl  and  a  laundered  input  file  for  AAPHOD  ', 

'using  AAfflSN.' )  ; 

writeln  | 
writeln  ; 

writeln*  'Keep  track  of  the  file  ones  as  you  generate  then.'  )  j 
writeln  ; 
end  ; 

2  3  begin 

writeln  j 

writeln*  'Target  definition'  )  ; 
writeln  | 

writeln*  'Enter  runways/TOL  surfaces  first,  followed  by  taxiways, 

'ad  then  buildings.' )  ; 

writeln  \ 

writeln*  'Raewbtr  that  AAPHOD  permits  a  naxima  of  3  runways,  ', 

'31  runway/taxiways,  ad'  )  ; 
writeln*  '112  iHMay/taxiway/buitdiegs.'  >  } 
writeln  1 
writeln  t 

writeln*  'You  west  define  each  target  in  tarn.'  )  ; 
writeln  ; 

writeln*  'Establish  a  x*y  coordinate  systa  for  the  caplex.'  >  5 
writeln  ] 

writeln*  'The  positive  x*uis  beccaes  I  degrees  uinuth.'  I  5 
writeln  ) 

writele*  'Recowendationi  let  the  mil  runway  cater  ad  ', 
'orientation  define  the'  !  ; 

writele*  'coordieate  systa.  Attach  passes  will  also  have  ', 
'ainpoints  ud  utaith  defined'  )  j 
writeln*  'in  this  systa.'  >  s 


end  ; 

3  :  begin 
drscr  } 
writeln  *, 

uritelnt  'Input  prcopts  ere  defined  is  follous:'  )  ; 
writetn  ; 

uritelnt  '  Input  options:  '  )  ; 
uriteln  ; 

uritelnt  '  Target  center  coordinates.'  >  j 

uritelnt  '  End-aidpoint  coordinates.'  )  j 

uriteln  ; 

uritelnt  'For  target  center  coordinates:'  )  ; 
uriteln  ; 

uritelnt  '  X-coordinate:  X-coordinate  of  the  center  of  the  ', 
'target  referenced  to  the'  )  ; 
uritelnt  '  coordinate  systei  of  the  ccaplex.'  )  j 

uriteln  ; 

uritelnt  '  Y-coordinate:  Siailar  to  x-coordinate.'  >  ; 
uriteln  j 

uritelnt  '  Axis:  Axis  orientation  is  target  ', 

'centerline  Masured  CCM'  )  ; 

uritelnt  '  (  in  integer  degrees  )  froa  ex-axis  of  ' 

'coordinate  systm  of' )  ; 
uritelnt  '  the  complex.'  )  j 

uriteln  } 

uritelnt  '  Length:  Length  ad  uidth  are  self-explanatory,'  )  \ 
uriteln  j 

uritelnt  '  Width:  Width  aust  be  saaller  than  or  equal  to  ', 
'length.'  )  } 

pause  ;  >, 

uriteln  ; 
uriteln  | 

uritelnt  'For  wdnidjpoint  coordinates:'  )  ; 
uriteln  j 

uritelnt  '  X-coordinate  (  left-aost  short  diamioa):  ', 
'X-coordinate  of  aidpoint  of  the'  )  i 
uritelnt  '  end  of  the  target  uith  saaller  x-value.'  )  { 
uriteln  | 

uritelnt  '  X-coordinate,  other  end:  X-toord  of  aidpoint  of 
'opposite  end  of  target.'  )  3 

uriteln  3 

uritelnt  '  Y-coordinate,  (  left-aost  short  diaensioo  )>  ', 
'Y-coordinate  of  aidpoint  of  the'  )  j 
uritelnt  '  end  of  the  target  uith  saaller  x-value.  (  If  ', 
xl  =*  x2,  pick  (he  end  uith'  )  ; 
uritelnt  '  the  saaller  y.  )'  )  { 
uriteln  } 

uritelnt  '  Y-coordinate,  othtr  end:  Y-coord  of  aidpoiot  of  opposite' 
'  end  of  target.'  )  ; 

pause  1 
uriteln  ; 

uritelnt  Kore  prcapts:'  >  3 
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writeln*  '  Type  of  target:  8  =  non-pavaient  <  building  )/>} 
writeln*  '  l  =  paveaent  <  taxi  or  TOL  )/>  i 

writeln  ; 

writeln*  '  Hardness:  Hardness  of  target  (  for  crater  table 
''lookup  )  /  )j 

writeln  ; 

writeln*  '  Target  group:  Target  group  of  the  target  in  ', 
'question/  )  ; 

writeln  ; 

writeln<  '  Hi niaua  length:  Niftiaut  clear  length  required  for 
'TOL  operations.  Enter'  )  ; 

writeln*  '  aero  for  taxi-only  pavenents/  )  ; 

writeln  ; 

writeln*  '  Hi Dinun  width:  Nininun  clear  width  required  for:'  )  ; 
writeln  ; 

writeln*  '  Taxi:  if  nininun  length  *  t ', 

'*  taxi-caly  )/  )  j 

writeln*  '  Tafceoff/land:  if  ainiaun  length )  8/)| 

writeln  | 

writeln*  'First,  enter  TOL  capable  pavenents,  followed  by  ', 
'taxi-only  capable  pavacats,'  >  ; 
writeln*  'followed  by  buildings  or  non-pavenents.  The  sane  ', 
'hardness  in  a  paveaent  and'  )  ; 
writeln*  'a  building  requires  two  different  code  nuabers/  )  j 
pause  ; 
id  s 

igin 

drscr  j 
writeln  ; 
writeln  j 

writeln*  'Select  crater  repair  priority/  )  j 
writeln  3 
writeln  j 

writeln*  '  It  All  TOL  strips  in  order  of  target  nuaber.'  )  5 
writeln  ; 

writeln*  '  1:  Easiest  TOL  strip  first,  rest  in  order/  )  } 

writeln  ; 

writeln*  '  2:  Repair  oaly  the  easiest  TOL  strip/  )  ; 
writeln  ; 

writeln*  '  II:  All  paveaeots  in  order  of  target  nuaber/  )  1 
writeln  ; 

writeln*  '  II:  All  approaches  and  easiest  TOL  strip  first,'  >  j 
writeln*  '  followed  by  others  in  target  order/  )  } 
writeln  3 

writeln*  '  12:  All  approaches  and  oaly  the  easiest  TOL  strip/  )  ; 


5  :  begin 

writelnt  'ERROR:')  j 

writeln<  'You  must  enter  runways  -first,  taxiways  second,  and  ', 
'non-paveaents  last.'  )  ; 

writeln  ; 
end  ; 

end  ;  {  case  } 
end  ;  {  procedure  info  } 

{== =  ^  =====  ■  r  - . . 

function  chkgoodt  nval,  hi,  to  :  integer  )  :  boolean  ; 

{  This  function  returns  false  when  nval  is  out  of  range.  } 
begin 

if  (  nval  <  to  )  or  (  nval  >  hi) 
then  begin 
writeln  ; 

writelnt  'Value  must  be  between  ',1o,'  and  ',hi  )  ; 
writeln  ; 
chkgood  :=  false  j 
end 

else  chkgood  :=  true  j 
end  ;  (  function  chkgood  ) 


procedure  processfilet  var  fnane  :  str 14}  which  :  strU  )  ; 

{  Initial  processing  of  file  name  entered  by  user.  } 
var  dot,  goodnane  :  boolean  ; 
p,  size,  dotpos  :  integer  j 

begin 
drscr  5 
writeln  ; 

writelnt  'For  the  following  entries,  allowable  filenames  nay  contain  only  ', 
'capital  letters'  )  5 

write!n<  'and  nunbers.  If  you  enter  lower  case  letters,  they  will  be  ', 
'treated  as  if  they'  )  } 

writelnt  'are  upper  case.  The  foraat  aust  be  as  follows:'  )  \ 
writeln  ; 

writelnt  '  DiXXXXXXXX.XXX'  )  } 

writeln  ; 

writelnt  '  where  0:  is  an  optional  drive  specifier,'  )  ; 
writelnt  '  X  is  a  digit  (  8  -  9  )  or  a  letter  (  A  -  l  ),'  )  j 

writelnt  '  XXXXXXXX  is  a  filename  I  to  8  characters  long,  and'  )  | 

writelnt  '  .XXX  is  an  optional  i  to  3  character  file  type', 

'  t  not  ,BAK  ).'  )  5 

writeln  ; 

writelnt  'Examples  of  valid  filenames;  MSN  MSN. I  AAPN0D.D7A  ', 
'B:1JAN84.AAP'  >  j 

writeln  ; 
writeln  j 

writelnt  'If  an  existing  file  you  need  to  use  contains  characters  not  ', 
'compatible  with'  )  ; 


writelnt  'the  above  format,  you  (till  need  to  ABORT  this  prograft  by 
'pressing  control -C,'  )  i 

writelnt  'and  then  renane  the  file  to  sake  it  coopatible.'  )  ; 

pause  *, 

repeat 

goodnaoe  :=  true  ; 
dot  false  ; 
repeat 
uriteln  ; 

writet  'Enter  nsoe  for  the  ',  which,  '  File  =0  '  )  ; 
readlnt  fnaae  )  j 
uriteln  ; 

for  p  s=  1  to  14  do  fnaaelp]  upcaset  fnametp)  )  ; 

repeat  {  delete  blanks  fron  ) 

P  post  '  ',  fnaoe  )  |  {  filename  } 

if  p  0  I  then  deletet  fnaae,  p,  1  >  ; 
until  p  =  8  j 

until  fnaae  O  "  j  {  trap  for  carriage  return/blank  filename) 

dotpos  :=  past  '  ',  fnaae  )  ;  <  filetype  can  only  be  3  characters  long  ) 

if  dotpos  O  I  then  deletet  fnaae,  dotpos  +  4,  14  )  ; 
size  :=  lengtht  fnaae  )  $ 
p  :=  post  fnaae  >  } 
if  <  p  =  2  ) 
then  begin 

if  <  not  <  dotpos  in  t  I,  4.. 11  ]  )  ) 
or 

( not  <  fnaaetll  in  l  'A'.. 'V  1  >  > 
or 

<  size  <  3  ) 

or 

<  t  dotpos  a  I  )  and  t  size  >  11  )  > 
then 

goodnaoe  false  j 

if  goodnaoe  then  for  p  »«  3  to  size  do  begin 
if  not  <  fnaoetpl  in  l  'A'./Z',  V  3  ) 

then  goodnaoe  t*  false  ; 

if  dot  and  (  fnaoetpl  »  V  )  then  goodnaoe  p  false  ; 
if  fnaoeipl  ■  then  dot  p  true  ; 

eed  ] 

end 

else  begin 

if  <  not  (  dotpos  in  {  4,  2..?  3  )  ) 
or 

<  size  <  I ) 

or 

t  t  dotpos  *  •  >  and  <  size  >  8  )  > 
then 

goodnaoe  j=  false  } 
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if  goodnane  then  -for  p  :=  1  to  length<  feane  )  do  begin 
if  not  <  fn»e(p]  in  t  '8'. .'9',  'A'..'Z',  V  1  ) 
then  goodnane  ;=  false  ; 

if  dot  and  <  fnanslpl  =  V  )  then  goodnane  :=  false  ; 
if  fnaaeCp)  =  V  then  dot  :=  true  j 
end  5 
end  \ 

if  post  '.8AK',  fnane  >  O  8  then  begin 
goodnane  :=  false  ; 
writelnt  'You  nay  not  enter  a  filenane  with  the  filetype  ‘.BAK*  ) 
writeln  ; 

writelnt  'To  use  the  backup  .BAK  file,  renane  if  before  executing 
'this  prograa.'  >  ; 

writeln  ; 
end  ; 
writeln  j 
if  goodnane 
then  begin 

write<  'Confine  the  correct  filenane  is  <  ',  feane,.'  >  V  )  j 
queryt  p,  1 )  ; 

if  p  =  1  then  goodnane  f  false  : 
end 

else  begin 

writelnt  'Invalid  filenane  <  ', fnane,  '  )'  >  j 
writeln  j 

wrjtelnt  'Please  try  again,  or  press  coatrol-C  to  ABORT  this  ', 
'progran.'  >  ; 

end  | 

until  goodaanc  ; 

end  |  (  procedure  prucessfile  ) 


function  filcxistst  fnane  t  str 14  )  t  boolean  i 
{  Checks  to  see  if  file  fnane  exists  on  disk.  Returns  true  if  it  does.  } 
var  exists  5  boolean  | 
begin 

assignt  diskfile,  fnane  )  ; 

t*W  resett  diskfile  >  ;  this  checks  if  the  file  exists) 
exists  i*  iorewlt  »  8  \ 
if  not  exists  then  begin 

writelnt  'File  <  ',  fnane,  '  >  does  not  exist.  Be  sure  to  specify  the 
'correct  drive  '  >  j 

writelnt  'and  the  correct  file  nane.'  >  i 
writeln  { 

writelnt  '  To  ABORT  this  prograa,  press  coatrol-C.'  )  | 

pause  ; 
end  | 

filexists  s*  exists  ; 
end  }  (  function  filexists  ) 


procedure  nswvaKvar  nvrbl  :  integer;  iciic  :  integer  )  ; 
{  This  procedure  pronpts  tor  a  new  value  and  reads  it.  ) 
begin 

it  ichc  =  8  then  begin 
write!  'Enter  new  value  =0  ' )  ; 
in tread!  nvrbl  >  ; 
writeln  ; 
end  ; 

end  ;  (  procedure  neuval  } 


procedure  pack!  nabr  :  integer  >  ; 

{  This  procedure  reaoves  eopty  lines  fra*  the  target  array.  } 
var  i,  j  s  integer  ; 
begin 

it  nobr  <~  nelt  then  begin 
tor  i  i=  nabr  to  nelt  do  begin 

tor  j  s=l  to  5  do  tgtli, jl  :=  tgtli  ♦  1,  jJ  ; 
tor  j  »=  1  to  3  do  itgtli, j]  s=  itgtli  ♦  1,  j]  | 
critti, II  s=  critti  ♦  1,  U  ; 
critti ,23  s*  critti  4  1,  21  ; 
end  ; 

crittnelt  4  l,  1}  s=  8  ; 
critlnelt  ♦  1,  21  s=  I  j 
end  ; 

end  ;  (  procedure  pack  > 


procedure  eot$t(  i  :  integer  )  * 

(  This  procedure  enters  targets  in  the  target  base  array  and 
updates  the  various  counters.  } 
var  noerror  i  boolean  j 
ichc,  iopt  5  integer  ; 
xi,  x2,  yi,  y2  j  real  ; 

procedure  wideflag  ;  !  checks  for  wide  targets  to  set  the  narca  flag  } 
begin 

if  narea  =  8  then 

if  (  itgtli, 11  *  1  )  and  <  tgtli, 51  )  89?  )  then  begin 
drier  ; 
writeln  ; 

writeln!  'Because  the  width  of  the  target  is  so  large  <  greater  ' 
'than  899  >,  a  flag  will'  >  } 

writeln!  'be  set  to  suppress  fWKOO  execution  of  routine  WLAP. 
'This  routiae  searches'  )  ; 

writeln!  'for  overlapping  areas  of  craters,  and  would  take  ', 
'excessive  execution  tine  for'  )  ; 
writeln!  'large  width  targets.  Note  that  the  search  is  ', 
'suppressed  for  ALL  targets  with'  )  ; 
writ»lo<  'this  flag  set.'  )  j 
narea  s=  1  ; 
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end  ;  {  procedure  widaflag  } 

begin  {  entgt  } 

query (  ichc,  6  )  ; 

if  Ichc  3  8  then  info<  3  )  ; 

if  nhard  =  nhardp  then  begin 

writelnt  'Non-paveaents  cannot  be  entered  as  targets  because  all 
'hardness  codes  are'  )  ; 

writelnf  'dedicated  to  paveoents.  Therefore,  Target  i,  '  is  a  ', 
'pavenent.'  >  ; 

writeln  \ 
itgtti, 11  :=  i  ; 
end  ; 

if  nhardp  =  8  then  begin 

writelnt  'Pavenents  cannot  be  entered  as  targets  because  all  hardness 
'codes  are'  >  j 

writelnt  'dedicated  to  non-paveaents.  Therefore,  Target  ',  i,  '  is  a  ', 
'non-paveaeet.'  >  ; 
itgtti , 11  1=  8  i 
end  ; 

if  <  nhard  0  nhardp  )  and  (  nhardp  <>  8  )  then 
repeat 

writet  'Type  of  targets  8  3  bldg,  i  3  paveamt.  Enter  code  =*>  '  )  j 
intreadf  itgtti, U  >  ,* 
writeln  j 

until  chkgoodt  itgtti, 11,  1,  8  )  j 
noerror  »*  true  j 

if  itgtti, 11  3  8  t  target  is  non-paveaent  1 
then  if  i  <*  nep  ♦  Iv 
then  begin 
infot  5  )  { 
pacK(  i  )  | 
noerror  false  | 
end 

else  nbldg  i=  nbldg  ♦  1 
else  (  target  is  a  pa,/eaent  1 

if  <  (  nbldg  >  I  )  and  <  i  >  nep  a  lv  ♦  1  )  >  or  <  ccp  ♦  Iv  >  31  ) 
then  begin 

if  <  nbldg  >  8  )  and  (  i  )  nep  ♦  lv  *  1  )  then  infot  S  )  j 
if  nep  ♦  lv  )«  3f  then  begin 
writelnt  'E  R  R  0  R  t'  )  ; 

writelnt  'Nwber  of  payments  exceeds  31.  Reaaved.'  )  } 
writeln  ; 
end  ; 

pack<  i  )  | 
noerror  f  false  } 
end 

else  begin 

writelnt  'Target  ',i,'  t  paveaent.  Enter  ainiaua  length  for 
'TGI  operations.'  )  j 

write<  '(  8  iaplies  taxi  only  )  '  >  j 

realreadt  critti,U  )  j 


if  critlijlJ  <  1 
then  if  i  (=  ncp 
then  begin 
info*  5  )  ; 
pack*  i  )  | 
noerror  s=  false  ; 
end 

else  begin 

Iv  s*  Iv  +  1  5 

nriteln<  'Pavaent  " ,i is  for  taxi  only.'  )  ; 
write*  'Enter  aininua  width  for  taxi  operations.  ', 
'=>  '  >  ; 

realread*  criUi,2)  )  ; 
end 

else  if  ncp  >  3 
then  begin 

writeln*  'ERROR:')  ; 

writeln*  'No  nore  than  3  TOL  surfaces  permitted.  ', 
'Renewed.'  )  ; 

writeln  | 
pack*  i  )  ; 
noerror  :=  false  \ 
end 

else  if  i  >  ncp  ♦  l 
then  begin 
infot  5  )  ; 
pack*  i  )  | 
noerror  :*  false  ; 
end 

else  begin 

ncp  t>  ncp  «  1  | 

writeln*  'Pavement  ',i,'  supports  TOL  operations.'  )  | 
write*  'Enter  ainiaem  width  for  TOL  operations, 

'»>  '  >  | 

real read*  critli,21  )  j 
end  ; 

end  |  <  target  is  a  pavement  ) 
if  noerror  then  begin 
oelt  :■  nelt  ♦  i  | 
repeat 

noarror  i*  tree  | 
harness  j 

write*  'Enter  hardness  code  «■>  '  )  } 
intread*  itgtU,21  )  ; 

if  (  (  itgtii,2)  >  nhardp )  and  <  itgtti.U  »  1 )  ) 
or 

<  *  itgtU.2]  <=  nhardp  )  and  *  itgUi.ll  »  9  >  ) 
then  begin 
noarror  :*  false  ; 
tlrscr  j 
writeln  j 

writeln*  'ERROR:')  : 


uriteln  ; 

uritelnt  'Discrepancy  in  nuiber  of  hardness  codes,  this  target  '  ) 
uritelnt  'type  and  this  particular  code.'  )  ; 
uriteln  ; 

uritelnt  'Ensure  that  target  element  types  and  declared  ', 
'hardnesses  agree.'  >  ; 

end  ; 

until  noerror  and  chkgoodt  itgtCi ,23 ,  nhard,  1  )  ; 
drscr  \ 

Mriteln  ; 
repeat 

uritet  'Enter  target  group  =>  '  >  j 
intreadt  itgtli ,33  )  ; 
uriteln  ; 

until  chfcgoodt  itgtCi ,33.  IS,  i )  ,* 
if  itgtti,33  >  ntgps  then  ntgps  :=  itgtli ,33  } 
query (  iopt,  4  )  ; 
if  iopt  3  I 
then  begin 

uritelnt  'Target  center  coordinates:  '  >  j 
uriteln  ; 

urite<  'x-coordinate  =>  '  )  { 
realreadt  tgtti,ll  )  ; 
uriteln  ) 

uritet  'y-coordinate  =0  ' )  } 
realreadt  tgtti ,23  )  j 
uriteln  ; 

uritet  'axis  (  degrees )  m)  '  >  | 
realreadt  tgtti,33  >  | 

if  4gtli,31  >  181  thea  tgt(i,33  :«  tgtti,33  -  IN  ; 
drier  } 
uriteln  | 
repeat 

uritet  'length  (  larger  or  equal  to  width  )  **>  '  )  ; 
realreadt  tgUi,43  )  j 
uriteln  { 

uritet  'uidth  =*>  '  >  j 
realreadt  tgtCi ,53  >  | 
uriteln  ; 

if  tgtli(5J  >  tgUi,4]  then  begin 
drier  j 
uriteln  i 

uritelnt  'ERROR:')  | 

uritelnt  'The  uidth  is  greater  than  the  length.  Reenter.'  )  t 
uriteln  j 
Md  j 

until  tgUi.53  <3  tgtii.4]  j 
uideflag  ; 
end 


else  begi^ 
repeat 

uritet  'x-coordinate  (  te-ft*aost  short  dimension )  =>  '  )  5 
realread(  xl  )  5 
uriteln  5 

write<  'x-coordinate,  other  end  =)  '  )  5 
realreadt  x2  )  ; 
uriteln  ; 

uritet  'y-coordinate,  (  left-most  short  dimension  )  =>  '  )  5 
realreadt  yl  )  ; 
uriteln  j 

uritet  'y-coordinate,  other  end  ==>  '  )  5 
real readC  y2  )  } 

tgtti, 4]  :=  sqrt<  sqr(  x2  -  xl )  ♦  sqr<  y2  -  yl)  )  5 
drscr  } 
uriteln  j 

uritet  'width  <  specify  shortest  dimension )  =)  ' )  j 
realreadt  tgtti, 53  )  ; 
uriteln  } 

if  tgtti ,5]  )  tgtti ,41  then  begin 
drscr  | 
uriteln  5 

uritelnf  'E  R  R  0  R  i'  )  i 

uritelnt  'The  uidth  of  the  target  is  greater  than  the  ', 
'calculated  length.  Be  sure  you'  )  ; 
uritelnt  'enter  the  target  correctly.'  )  \ 
uriteln  j 
end  ; 

until  tgtti,)]  <=>  tgtti, 41  j 
uideflag  ; 

tgtti, U  s»  (  xl  4  12  )  /  2  | 
tgtti, 21  **  <  yl  ♦  y2  )  /  2  | 
if  xl  »  x2 
then  tgtti,31  t=  91 

else  tgtti, 3]  arctant  <  y2  •  yl  >  /  <  x2  -  xl  >  )  1  181  /  pi  j 
end  1 
end  ) 

end  j  (  procedure  entgt  ) 
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procedure  newtgt  ; 

{  This  procedure  creates  a  new  target  base  to  be  written  to  a  user  defined 
file  nave.  > 
var  badnane  :  boolean  ; 
ichc  s  integer  ; 

begin 
repeat 
drscr  j 

processfile  <  fnane,  'New  Target'  )  j 
assign!  disJCfile,  fnane  )  } 

WI-)  reset!  disk-file  )  ;  {tit  check  to  see  if  diskfile  exists  } 
badnaae  i=  ioresult  3  I  j 
if  badnane  then  begin 

write!  'File  <  ',  fnane,  '  >  already  exists.  Erase?'  >  } 
query!  ichc,  1  )  j 
if  ichc  =  I  then  begin 
uriteln  j 

write!  'Are  you  SURE  you  want  to  erase  <  ', fnane,'  >?'  )  ; 
query <  ichc,  l  )  ; 
if  ichc  =  S  then  begin 
erase!  diskfile  )  ; 
badnane  s=  false  { 
end  | 
end  | 
writcln  ; 
end  | 

until  not  badnane  j 
drscr  ; 
info!  2  )  ; 

uriteln!  'A  value  of  I  for  the  next  input  will  suppress  AAPNQO  search 
'for  tixi'  )  j 

uriteln!  'approach  to  a  dear  strip.' )  | 
uriteln  ; 

write!  'Enter  nininun  width  required  for  taxi  operations  ■»>  '  )  j 
intread!  npprew  >  ; 
uriteln  j 
uriteln  ; 

writeln!  'Enter  n tuber  of  different  hardness  codes.  Motet  the  sane  ', 
'absolute  hardecss  '  )  ; 

writeln!  'level  is  a  pavweot  and  agaio  in  a  building  will  require  two 
'different  codes.'  )  j 

repeat 

writeln  ; 

write!  'Nenber  of  hardness  levels  (tax  II)  »>  '  >  j 
intread!  nhard  )  ; 
until  chkgood!  nhard,  II,  I  >  ; 
writeln  ; 


writelnf  'Enter  nunber  o-f  hardness  codes  associated  with  pavenents.'  ) 
write<  '<  Nax  is  ',nhard,'  >  =>  '  )  ; 
intreadt  nhardp  )  j 
until  chkgoodt  nhardp,  nhard,  8  )  ; 
clrscr  5 
hardness  j 
repeat 

if  nelt  <  112 
then  begin 

entgU  nelt  ♦  i  >  j 
write<  'Do  you  want  to  quit  now?'  )  ; 
queryt  ichc,  1  )  ; 
end 

else  begin 

writelnt  '112  targets  already  entered.  You  will  have  to  delete  ' 
'targets  before  nore  can'  >  ; 

writelnt  'be  entered.  Conpleto  your  other  entries,  exit  and  ', 
're-enter  AAPT6T  to  delete'  )  { 
writelnt  'and  add  targets.'  )  $ 

.  ichc  :M  ; 
end  ; 

until  ichc  =  8  ; 
writeln  j 

writelni  'Target  conplex  repair  capability:'  )  ; 
writeln  ; 

writef  'How  tany  patches  will  resources  allow  ?»>'>) 
intreadt  nuptch  )  j 
writeln  ; 
repeat 
info(  4  )  | 

write<  'Choice  =*=»)  '  >  ; 
intreacK  irepr  )  | 
until  irepr  in  repaircodes  *, 
writeln  ; 

end  |  (  procedure  newtgt  ) 


procedure  deltgtt  nabr  :  integer  )  ; 

{  This  procedure  deletes  a  target  entry  and  repacks  the  array.  } 
var  i  :  integer  j 
widthok  :  boolean  j 

begin 

if  nabr  <=  ncp 
then  ncp  :=  ncp  -  1 
else  if  nabr  <=  ncp  4  lv 
then  lv  s=  lv  -  ! 
else  nbldg  :=  nbldg  -  1  5 
nelt  s=  nelt  -  1  j 
pack(  nabr  )  ; 
if  narea  =  1  then  begin 
widthok  i=  true  ; 

for  i  s=  1  to  ncp  4  lv  do  if  tgtCi ,53  )  8??  then  widthok  false  ; 
if  widthok  then  begin 
narea  :=  I  ; 
writeln  ; 

writelnt  'The  flag  to  suppress  AAPHQD  routine  (WtAP  is  now  reset  to 
'eeablt  search.'  )  ; 

writeln  ; 
end  ; 
end  ; 

end  |  {  procedure  deltgt  } 


procedure  instgtt  nabr  s  integer  >  ; 

(  This  procedure  inserts  a  new  entry  above  a  specified  target 
by  noving  the  rest  of  the  array  down  and  inserting.  ) 
var  i,  j  «  integer  ; 
begin 

for  i  1=  nelt  downto  nabr  do  begin 
for  j  p  I  to  5  do  tgtti  ♦  l,  j  3  :*  tgtti.Jl  5 
for  J  s*  1  to  3  do  i tgtti  4  1,  j]  j»  itgUitj)  j 
critti  4  i,  u  i»  critti.il  j 
critti  4  1,  23  critti ,23  1 
cad  i 

entgtt  nabr  )  1 
end  5  (  procedure  instgt  ) 


} 
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procedure  oldtgt  ; 

{  This  procedure  updates  an  existing  target  base  compatible 
with  the  AAPMOD  series  of  programs.  ) 
var  badnane  :  boolean  ; 

i,  ichc,  j,  jchc,  nabr,  p  :  integer  ; 

begin 

repeat  processfilet  fnaae,  'Target7  )  until  filexistst  fnaae  )  ; 
uriteln  ; 

writeln<  '  Reading  file  <  ',  fnaae,  j 

writeln  ; 
writeln  ; 

read!  diskfile,  nelt,  ntgps,  npprcu,  narea  )  ; 
for  i  :=  1  to  nelt  do  begin 
for  j  ;=  1  to  5  do  read(  diskfile,  tgtii,jl  )  ; 
for  j  !=  I  to  3  do  read(  diskfile,  itgtli,j]  )  j 
if  itgtti,U  *  1  then  readt  diskfile,  critCi,l],  critti ,23  >  ; 
end  ; 

read(  diskfile,  ncp,  Iv  )  ; 
readt  diskfile,  nhard,  nhardp  >  j 
read(  diskfile,  axptcb,  irepr  )  ; 
closet  diskfile  )  | 
nbldg  !=  nelt  -  ncp  -  Iv  j 
uriteln  { 

writelo<  'Current  tin  width  for  taxi  is  ',  npprcu,  )  ; 
if  npprcu  ~  I 

then  writelnt  'This  value  will  suppress  AftWQD  search  for  taxi  approach  ', 
'to  a  clear  strip.'  )  ; 
queryt  ichc,  2  )  j 
ocwvaK  npprcu,  ichc )  ; 
repeat 
clrscr  j 
hardness  ; 

uritet  'Oo  you  want  to  update  this  table?'  )  ; 
queryt  jchc,  I  )  j 
if  Jchc  ®  I  then  begin 

uritelnt  'Current  total  hardness  levels  (surfaces  plus  buildings) 

'a  ', nhard  )  j 
gaery<  ichc,  2  )  ; 
repeat 

nnwaK  nhard,  ichc )  j 
ichc  I  j 

until  chkgoodt  nhard,  II,  I  )  \ 

writetn<  'Current  harinass  levels  for  paveaeots  -  ', nhardp  )  i 

geery(ichc,2)  j 

repeat 

newaK  nhardp,  ichc  )  j 
ichc  :a  I  | 

until  chkgoodt  nhardp,  nhard,  I  )  \ 
end  j 

untit  jchc  a  1  | 
clrscr 
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repeat 

query!  ichc,  3  )  } 
case  ichc  of 
8  s  if  nelt  =  8 

the#  writeln!  'There  are  no  target  eleneats  left  to  delete.'  ) 
else  begin 
repeat 

write!  'Which  target  eleaent  is  to  be  deleted?  =)  '  )  5 
intread!  nnbr  >  ; 
writeln  | 

until  chKgood!  nnbr,  nelt,  1  )  ; 

write<  'Are  you  SURE  you  want  to  delete  target  ',nabr,'  ?'  )  ; 
query!  jchc,  1  )  ; 
drscr  } 
writeln  ; 
it  jchc  ^  8 
then  begin 

deltgt!  nnbr  )  ; 

writeln!  'Target ',  nnbr,  '  deleted.'  >  { 
end 

else  writeln!  'Target  ',  nnbr,  '  NOT  deleted.'  )  ; 
writeln  } 
end  | 

1  i  it  eelt  >=  112 

thee  begin 

writeln!  'There  are  112  targets  already  defined.  You  aust  ', 
'delete  a  target  before  you  can'  )  5 
writeln!  'add  aaother  one.'  )  } 

Md 

else  entgt!  nelt  ♦  1  )  | 

2  s  case  nelt  of  !  case  for  target  insert  1 

I  t  entgt!  1  >  ; 

l, .111  3  begin 
repeat 

writeln!  'The  dm  target  Mill  be  inserted  at  the  position  ', 
'you  specify,  displacing'  )  } 
writeln!  'previous  entries.'  )  | 
writeln  5 

writeln!  'You  presently  have  ',  ntp,  '  TOL  surfaces  and  ', 
Iv,  '  taxi  surfaces.' )  } 

writeln  ; 

write!  'New  target  to  be  inserted  at  position  I  =>  '  )  j 
intmdt  nnbr )  ; 
writeln  5 

until  chtgood!  onbr,  nelt  ♦  l,  l  )  5 
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if  rabr  =  nelt  ♦  1 
then  entgt!  nobr  ) 
else  instgt!  mbr  )  ; 
end  ; 

else  begin 

writeln!  'There  are  112  targets  already  defined.  You  cfist 
'delete  a  target  before  you  can'  )  j 
Mritelot  'insert  another  one.'  )  ; 


end  ;  !  case  for  target  insert  } 
3  i  tgtnatrix  ; 


end  ;  !  case  } 
until  ichc  -  4  j 

writelnt  'Current  tiusber  of  patches  available  is  ',  nxptch )  ; 
query!  ichc,  2  )  j 
netwal!  nxptch,  ichc )  j 
info!  4  )  ; 

triteln!  'Current  crater  repair  priority  is  ',irepr,  '.'  )  j 
writeln  5 

if  irepr  in  repaircodes 
then  query!  ichc,  2  > 
else  ichc  »»  I  ; 
repeat 

new.)!  irepr,  ichc  )  { 
until  irepr  in  repaircodes  ; 

backup  4*  feme  |  !  create  a  filename  equal  to  ) 

p  4s  pus!  '.'(backup  )  5  ( specified  filename  except  ) 

if  p  O  i  then  delete!  backup,  p,  4  )  ;  (  with  a  .BftX  filetype.  ) 

backup  !=  backup  ♦  \8AK'  j 
assign!  diskfile,  backup  >  { 

(•!“)  reset!  diskfile  )  \  (It*)  (  see  if  old  .0AK  file  exists  ) 

if  ioresult  *  I  then  erase  !  diskfile  )  1  <  erase  old  .OAK  file  ) 

assign  !  diskfile,  faaae  )  \ 

rtnatu!  diskfile,  backup )  \  (old  file  note  saved  with  .8AK  extension  ) 
end  1  (  procedure  oldtgt  ) 


(  see  if  old  M  file  exists  ) 
<  erase  old  .OAK  file  ) 


} 


( . . ========= .  . .  . .  " 

procedure  outdat  ; 

{  This  procedure  writes  the  target  base  to  a  new  -file  with  the  name 
specified  by  the  user  at  program  invocation.  If  the  file  specified 
was  an  existing  file  named  (filename). (filetype),  it  was  renamed 
(filename. BAK)  by  procedure  oldbas  and  saved.  } 
var  i,  j  :  integer  ; 
begin 
drscr  ; 
writeln  ; 

writeln(  'DATA  INPUT  COUPLET  EM  5 
writeln  ; 

writelnt  'Be  sure  to  write  down  hardness  information.  You  will  need  this  ', 
'when  forming  '  )  5 

writelnt  'the  weapons  base  in  program  AAPHPtf.'  )  ; 
writeln  ; 

writelnt  'Total  number  of  hardness  codes  5  ',  nhard,  ; 
hardness  ; 
pause  ; 
writeln  ; 

writelnt  'You  are  now  finished  developing  the  target  base.  The  next  step  ', 
'is  to  define  a'  )  ; 

writelnt  'weapons  base  with  AAPMPN.'  )  ; 
writeln  5 
writeln  ; 

if  not  new  then  writelnt  'Old  file  <  ',  fname,  '  >  will  be  renamed  t  ', 
backup,  '  >  and  saved.'  )  j 

writeln  ; 
writeln  ; 

writelnt  'Writing  to  disk  file  (',  fname,  ').,,')} 
writeln  j 

assignt  diskfile,  fname  )  \  t  reassign  file  to  use  as  the  ) 

rewritet  diskfile  )  ;  {  specified  filename  } 

writelnt  diskfile,  neltsS,  ntgpsiS,  npprcuiS,  nareasS  )  ; 
for  i  p  I  to  nelt  do  begin 
for  j  1  to  5  dowritet  diskfile,  tgtli 1  )  ; 
for  j  p  1  to  3  dowritet  diskfile,  itgtCi,jlsS  >  j 
writelnt  diskfile  )  | 

if  itgt(i,13  *  1  then  writelnt  diskfile,  critU,Us?st,  criUi,23i9jl  )  ) 
end  ; 

writelnt  diskfile,  ncptS,  1vi5  )  ; 
writelnt  diskfile,  nhardsS,  nhardp:5  )  ; 
writelnt  diskfile,  mxptch:5,  ireprtS  )  j 
closet  diskfile  )  ; 
end  ;  t  procedure  outdat  } 


{== 

begin 


MAIN  P  R  0  6  RAN 


init  j 

info(  1  >  ; 

q#ery(  ichc,  5  )  ; 

dsw  !=  ichc  =  8  ; 

query<  ichc,  i)  ; 

if  ichc  -  I  then  info(  3  )  ; 

if  new  then  newtgt  else  oldtgt  ; 

outdat  ; 

writelnt  'END  OF  P  R  0  6  R  A  MM 


frrwnrag-m-T -  - -  =  ==^= - } 

{ . .  FILE  MmPNl.PAS  18  Feb  1985  -  .  ') 

t - — — - - T -  1 - } 

progran  aapwpn  ; 

type  strl4  a  siringC 141  ;  {  tor  iilenanes  } 


var  {  VARIABLE  DECLARATIONS  AND  KEY  > 

diskiile  :  test  ;  !  disk  tile  variable  ) 

crtab  :  array!l..U,1..4,1..2]  ot  real  ; 

(  crtabIi,j,Kl  -  crater  tabulated  data 

i  -  surtace  type  (hardness  code) 
j  -  weapons  type 

k  -  crater  radii  subdivided  by  surface  type 

paveaenti  1=>  TOL  crater,  2=>  taxiway  crater 
building;  Is)  near  miss,  2s)  direct  hit  } 

ipat  :  array!  1.. 12,1.. 43  ot  integer  ; 

{  ipat!i,j]  -  tor  each  detined  pattern(i),  j: 

1  -  number  ot  weapons  delivered  (  12  or  less  ) 

2  -  nuaber  ot  sulauni lions  per  weapon 

3  -  weapon  code  (crtab! i,j,kl  index  nutber  j) 

4  -  pattern  shape 

8  ««>  General  purpose  boab 

1  =>>  CBU  rectangular  tootprint 

2  =»)  CBU  elliptical  tootprint 

3  **>  guided  boab  } 

patt  i  array !h.  12,1.. 34 J  ot  real  | 

(  pattti,jl  -  pattern  data;  tor  each  pattern(i),  j: 

1- del ivery  or  optiaal  guidwce  range  error  signs 

2- delivery  or  uptinal  guidance  deflection  error  signa 

3- ballistic  or  near-nsss  range  error  signa 

4- ballistic  or  near  sniss  deflection  error  signa 

5- CBU  halt  pattern  length  or  gross-error  range  error  signa 
<KBU  halt  pattern  width  op  gross-error  deflection  signa 

7- C8U  halt  void  length  or  probability  ot  optimal  guidance 

8- C8U  halt  void  width  or  proa  ot  near-aiss  or  better  guidance 
^-weapon  nr  cannister  t«*  reliability 

it-bosblet  reliability 

11,  13,  ...  33  -  stick  iapact  points  (  range  tren  ainpoint  ) 

12,  14,  ...  34  -  stick  impact  points  (  ottset  troa  ainpoint  )  ) 

inane,  backup  ;  strl4  }  (  tor  tile  nanes  ) 


Ift  .• 


W: 


ichc, 

{  choice  flag  } 

r,hard, 

£  total  hardness  codes  for  bldgs  ♦  surfaces  ) 

nhardp, 

£  hardness  codes  for  surfaces  } 

^patt, 

£  number  of  patterns  £  12  or  less  )  } 

nsqr, 

£  crater  input  flag;  1  =)  square,  !  =>  round  ) 

itupn 

£  1  of  different  weapon  types  £  d  or  less  )  ) 

:  integer  ; 

{  integers  local  to  various  procedures: 

i.  it  U, 

loop  counters 

jchc 

choice  flag 

jdef 

defection  counter  (index  in  patt  matrix) 

irng 

range  counter  (index  in  pattern  matrix) 

np 

number  of  release  pulses 

opatt 

pattern  option  flag 

P 

integer  for  fitenane  (string)  stipulations 

reals  local  to  various  procedures: 

all 

length  of  CBU  pattern 

». 

width  of  CBU  pattern 

cepl, 

optimal  guidance  (guided  munitions) 

cep2, 

near  aiss  CEP  (guided  Munitions) 

df, 

distance  between  boab  impacts 

dt, 

delta  t  or  intervalceeter  setting 

tps, 

true  airspeed  in  feet  per  second 

width  of  stick/string  of  bombs 

sstart, 

starting  location  of  stick 

stick), 

stick  length  in  feet 

tas, 

true  airspeed  in  knots 

theta, 

dive  angle 

vl. 

length  of  CBU  void 

vw, 

width  of  CBU  void 

wit 

stick  uaH-width  i 

->vv;  ’ * r. 


H 

"M 


{= 

procedure  realreadt  var  r  :  real  )  ; 

{  Procedure  to  read  a  real  value  with  error  checking.  ) 
begin 

repeat  {$1*}  readlnt  r  )  til*}  until  (  ioresult  =  8 )  j 
Mriteln  ; 

eid  5  {  procedure  real read  ) 


{= 

procedure  intreadt  var  i  :  integer )  ; 

{  Procedure  to  read  an  integer  value  with  error  checking.  ) 
begin 

repeat  t$W  readlnt  i  )  i%U)  until  <  ioresult  =  8)5 
Mriteln  ; 

end  ;  {  procedure  intread  ) 

.  -  - r . - . """T - TI--1 - 1— T'  ) 

procedure  pause  1 

{  Delays  crt  output  until  a  key  is  pressed.  } 
begin 
Mriteln  j 

Mritet  '  press  any  key  to  continue  '  >  j 

repeat  until  keypressed  5 
drscr  j 

end  ;  (  procedure  pause  J 


<* 

procedure  reviSM  1 

(  Display  hoN  uny  Meapons  and  patterns  are  defined.  ) 
begin 
Mriteln  ) 

Mritet  'You  presently  have  iwpo,  '  Meapoa'  >  { 

if  nMpn  O  1  then  Mritet  's'  )  j 

Mritet  '  and  ',epatt,'  pattern'  )  | 

if  npatt  0  1  then  Mritet  's'  )  j 

MTitelnt  '  defined.'  )  s 

Mriteln  } 

Mriteln  1 

cad  }  (  procedure  review  ) 


.1 


B  -  3  -  4 


} 


= . —  I  -  - - - 

procedure  queryt  var  ichc:  integer;  ix  :  integer  )  ; 

{  This  procedure  returns  responses  to  several  categories  of  yes-no  and 
nultiple  choice  questions.  } 

var  ans  :  char  ; 
begin 

ichc  ;*  -1  ;  {  initialize  ichc  out  of  range  } 

case  ix  of 


1  :  begin 

uritet  '  (y/n)  =)  '  )  j 

repeat  readlnt  ans  )  until  <  upcaset  ans  )  in  t  'Y'/N'  1  )  or  eoln  ; 
writeln  ; 

if  eoln  or  <  upcaset  ans  >  =  'N'  ) 
then  ichc  s=  1 
else  ichc  :s  8  ; 
end  } 


2  :  repeat 
review  ; 
if  nwpn  «  9 
then  begin 

writelnt  'You  now  Bust  add  a  weapon.'  )  ; 
pause  ; 
writeln  ; 
ichc  :*  i  ; 
end 

else  begin 

writelnt  'Weapon  section  editing  options.'  )  \ 
writeln  ; 

writelnt  '  I:  Delete  a  weapon  and  its  ', 

'corresponding  patterns.'  )  ; 


writelnt 
writelnt  ' 
writelnt  ' 
writelnt  ' 
writelnt  ' 


'satrix.'  )  ; 


h  Add  a  weapon  ( aaxiwn  is  4 )  j 
2:  Insert  a  weapon.'  )  ; 

3i  Redefine  a  weapon/  )  ; 

4 i  Review  the  weapon  Matrix.'  )  ; 

St  Review  the  attack  pattern  ', 


writelnt  '  4s  End  weapon  section  editi 

write  t  'Enter  choice  =0  '  )  | 
intreadt  ichc  )  j 
clrscr  j 
writeln  | 
end  ; 

until  ichc  in  l  I..4  1  ; 


.'>  I 


3  :  repeat 

review  ; 
if  npatt  =  8 
then  begin 

writelnt  'You  isust  now  add  a  pattern.'  )  ; 
pause  ; 
writeln  } 
ichc  ;=  i  } 
end 

else  begin 

writelnt  'Attach  pattern  section  editing  options.'  )  ; 
writeln  ; 

writelnt  '  I:  Delete  a  pattern.'  )  ; 

writelnt  '  1:  Add  a  pattern.'  )  ; 

writelnt  '  2:  Insert  a  pattern.'  )  ; 

writelnt  '  3s  Review  the  weapon  natrix.'  )  ; 

writelnt  '  4:  Review  the  attack  pattern  ', 

'natrix.'  )  } 

writelnt  '  Ss  Save  data  and  end  the  progran.'  ) 

write  t  'Enter  choice  =)  '  )  j 
iatreadt  ichc  )  j 
clrscr  j 
writeln  ; 
end  ; 

until  ichc' in  (  I..5  1  ; 

4  t  repeat 

writeln  ; 

writelnt  'Individual  weapon  trajectory  codes'  )  j 
writeln  ; 

writelnt  '  Is  Siigle  general  purpose  weapons.'  )  ; 

writelnt  '  is  C8U,  rectangular  pattern  t  voids  not 

'allowed  )  j 

writelnt  '  2s  C8U,  elliptical  pattern  t  voids 

'allowed  ).'  )  j 

writelnt  '  *  3s  6eided  nuniUon'  >  j 

write  <  'Enter  code  »>  '  >  j 
iatreadt  ichc  )  ; 
until  ichc  in  I  I..3  1  j 

3  s  repeat 
drier  j 
writeln  | 

writelnt  'You  »ay  choose  to  drop  the  string  of  banbi  in  singles  or  in  ', 
'pairs.'  )  j 

writeln  j 

writelnt  '  Is  Drop  weapons  in  singles.'  )  | 

writelnt  '  2s  Drop  weapons  in  pairs.'  >  } 

write  (  'Enter  choice  «■>')} 
iatreadt  ichc  )  ; 
until  ichc  in  I  I,  2  3  j 
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6  :  repeat 

drscr  5 
writeln  j 

writelnt  'You  Rust  now  describe  the  weapons  stick.  Manual  entry 
'requires  you  to  enter'  )  } 

writelnt  'each  inpact  point  by  deflection  and  range  frca  the  aiapoint.' 
'  Alternatively,'  >  ; 

writelnt  'the  autautic  calculation  procedure  requires  you  to  enter  ', 
'the  release  dive'  )  5 

writelnt  'angle,  true  airspeed,  intervalooeter  setting,  and  width  of  ', 
'the  stick.'  >  | 

writeln  ; 

writelnt  '  I:  Manual  entry.'  )  ; 

writelnt  '  1:  Autcoatk  calculation.'  )  ; 

writet  'Enter  choice  =>  '  )  j 
intreadt  ichc  )  j 
until  ichc  in  t  I,  t  1  1 

7  i  repeat 

drscr  j 
writeln  ; 

writelnt  'Describe  error  distribution  for  guided  eunitioos  with 
'standard  deviation'  )  ; 

writelnt  '<  sigu  )  or  range  and  deflection  errors  probable  ', 

'<  REP  /  0€P  >s'>  } 

writeln  | 

writelnt  '  It  Entry  as  REP  /  DEP'  )  \ 

writelnt  '  2i  Entry  as  standard  deviation  ', 

'<  signs  )'  )  ; 

writet  'Enter  choice  «>  '  )  j 
intreadt  ichc  )  j 
until  ichc  in  (  1,  2  1  { 

8  <  repeat 

writeln  ; 

writelnt  'AAPHODwill  use  square  craters,  bet  you  way  choose  the  input 
'wodet'  >  ; 

writeln  } 

writelnt  '  It  Half-length  of  side  of  square 

'crater/  )  j 

writelnt  '  It  Radius  of  circular  crater/  )  ) 

writet  'Enter  your  choice  «>  '  )  j 

intreadt  ichc  >  1 

drscr  j 

writeln  j 

until  ichc  in  t  I,  1  1  } 
ted  j  (  case  ) 
end  ]  (  procedure  query  > 
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( - - - -  ■■  -■ 

procedure  hardness  ; 

{ Print  hardness  intonation,  } 
var  i  :  integer  ; 
begin 
uriteln  j 
uriteln  ; 

uritelnf  'Hardness  Code  Target  Type'  )  5 

uritelnt  '■  —  1  = .  ===='  )  5 

-for  i  :=  1  to  nhardp  do  wrlteln<  i:7,  ' 

for  i  :=  nhardp  +  1  to  nhard  do  uritelnf  i:7,  ' 

uriteln  ; 

end  i  {  procedure  hardness  } 


pavcaent'  )  \ 

non-paveaent'  )  ; 


{ass^^=«aTB':issa«=^i,-™ar;;;;^^:::raa:,-!r;:aa;;:ii..^ljsaa-r-g==aas=; 

function  chkgoodt  oval,  hi,  1o  j  integer  >  ;  boolean  ; 

<  This  function  returns  false  uhen  nval  is  out  of  range  } 
begin 

if  <  aval  <  lo  )  or  (  nval  >  hi) 
then  begin 
uriteln  j 

uritelnf  'Value  Bust  be  betueeo  ',lo,'  and  ',hi  )  3 
uriteln  ; 
chkgood  1=  false  j 
end 

else  chkgood  i=  true  { 
end  ;  <  function  chkgood  ) 

function  probchkt  prob  i  real  )  t  boolean  1 

t  This  function  returns  false  when  prob  is  get  of  range  (  I  to  1  ).  ) 

begin 

if  t  prob  <  •  >  or  <  prob  )  i  > 
then  begin 
uriteln  1 

uritelnf  'Eater  a  value  between  I  ad  I.'  )  1 
uriteln  { 
probchk  :*  false  1 
end 

else  probchk  t*  true  3 
end  t  (  function  probchk  ) 


procedure  processfilet  var  fnaae  :  strMj  which  :  str  14 )  ; 

{  Initial  processing  of  file  naae  entered  by  user.  } 
var  dot,  gocdnaae  :  boolean  ; 
p,  size,  dotpos  s  integer  ; 

begin 
drscr  *, 
writeln  { 

writelnt  'For  the  following  entries,  allowable  filenanes  nay  contain  only  ', 
'capital  letters'  )  ; 

writelnt  'and  numbers.  If  you  enter  lower  case  letters,  they  will  be  ', 
'treated  as  if  they'  )  j 

writeln(  'are  upper  case.  The  foroat  sust  be  as  follows:'  )  ; 
writeln  ; 

writtlnt  '  DiXXXXXXXX.XXX'  )  ; 

writeln  j 

writelnt  '  where  0:  is  an  optional  drive  specifier,'  )  ; 
writelnt  '  X  is  a  digit  t  I  -  9  >  or  a  letter  t  rt  -  Z  )  j 

writelnt  '  XXXXXXXX  is  a  filenane  1  to  8  characters  long,  and'  )  ; 

writelnt  '  , XXX  is  an  optional  i  to  !5  character  file  type', 

'  (  not  .BAK  ).'  )  \ 

writeln  } 

writelnt  'Exaaplts  of  valid  filenaaes:  MSN  MSN.l  AAPHQ0.0TA  ', 
'B:1W«4jW'  )  { 

writeln  j 
writeln  ; 

writelat  'If  an  existing  file  you  need  to  use  contains  characters  not  ', 
'ecapatible  with'  )  ; 

writelnt  'the  above  forest,  you  will  need  to  ABOUT  this  progran  by 
'pressing  controK,'  )  ; 

writelnt  'ud  then  rtnaae  the  file  to  sake  it  uapatible.'  )  } 

pause  5 

repeat 

Qoodaaae  :*  true  ) 
dot  false  | 
repeat 
writeln  ; 

writet  'Enter  naae  for  the  which,  '  File  '  )  ; 
readlnt  fnaae  )  ; 
writeln  j 

for  p  t*  1  to  14  do  fnaaetp)  :»  upcaset  foaae(p)  >  ; 
repeat  (  delete  blanks  free  ) 

p  t*  post  '  fnaae  )  )  (  filenaee  ) 

if  p  0  I  then  deletet  fuse,  p,  I  )  j 
until  p  *  I  ; 

until  fnaae  0  "  i  t  trap  for  carriage  return/blak  filenane) 

dotpos  t»  post  fnaae  >  ;  (  filetype  can  only  be  3  characters  long  ) 

if  dotpos  <>  I  then  deletet  fnaae,  dotpos  ♦  4,  14  )  j 
size  :3  leagtht  faaae  )  ; 


if  (  p  *  2  ) 
then  begin 

if  (  not  (  dotpos  in  t  I,  4. .11  ]  )  ) 
or 

(  not  <  foaetU  in  t  'A'..'Z'  1  )  ) 
or 

(  size  <  3  > 
or 

(  (  dotpos  =  I  )  and  (  size  >  II  )  ) 
then 

goodnane  s=  false  ; 

if  goodnane  then  for  p  3  to  size  do  begin 
if  not  <  fnanetpl  in  t  'I'. .'9',  'A'./Z',  '.'  1  > 
then  goodnane  :=  false  ; 

if  dot  and  (  fnanetpl  *  '.'  )  then  goodnane  :=  false  ; 
if  fnanetpl  a  ' .'  then  dot  i=  true  j 
end  ; 
end 

else  begin 

if  <  not  t  dotpos  in  (  I,  2. .9  ]  )  ) 
or 

(  size  <  t  > 
or 

(  <  dotpos  «  t  )  and  <  size  >  8  )  > 
thee 

goodnane  *.«  false  \ 

if  goodnane  thee  for  p  j*  I  to  length!  fnase  )  do  begin 
if  not  <  fnaoetpl  in  l  '•'..'9',  'A'..'Z',  ','  1  > 
thee  goodnane  :a  false  ; 

if  dot  and  <  fnanetpl  ■  >  then  goodnane  i*  false  {  . 

if  fnanetpl  ■  then  dot  **  tree  ; 
eed  j 
end  t 

if  post  \BAK',  fftKte  )  0  I  then  begin 
goodnane  :a  false  j 

writelit  'Yoo  nay  not  eoter  a  filwane  uith  the  filetype  *.&AK*  ) 

uriteln  t 

nritelnt  'To  use  the  backup  ,BAK  file,  name  it  before  executing 
'this  progran.'  )  } 

uritele  { 
led  ; 
writeln  j 
if  goodnane 
then  begin 

aritet  'Confim  the  sormt  fileoane  is  (  ',  inane,  ')?'); 
ginryt  p,  1 )  ? 

if  p  a  I  then  goodnane  j»  false  j 
cod 


else  begin 

uritelnt  ''Invalid  filenase  <  ',fnaae,  ' >'  )  j 
uriteln  ; 

uritelnt  'Please  try  again,  or  press  conirol-C  to  ABORT  this  ', 
'prograa/  )  ; 

end  ; 

until  goodnaoe  | 

end  j  {  procedure  processfile  ) 

(== =====  - - -  ) 

-function  filexistst  fnaae  :  strH )  s  boolean  5 
(  Checks  to  see  if  file  fnaae  exists  on  disk.  Returns  true  if  it  does.  } 
var  exists  :  boolean  ; 
begin 

assignt  diskJile,  fnaae  )  ; 

{*1-}  resett  diskfile  )  ;  {%U  this  checks  if  the  file  exists) 
exists  s*  ieresult  =  I  j 
if  not  exists  then  begin 

uritelnt  'File  <  ',  fnaae,  '  )  does  not  exist.  Be  sure  to  specify  the  ', 
'correct  drive  '  )  ) 

uritelnt  'and  the  correct  file  naoe.'  )  ; 
uriteln  ; 

writelnf  '  To  ABORT  this  prograa,  press  control-C.'  )  j 

pause  ; 
end  ; 

filexists  i=  exists  { 
etd  ;  {  function  filexists  ) 

procedure  info(  ix  s  integer  )  j 

(  This  procedure  declutters  the  aaie  prograa  and  procedures  by  placing  text  in 

a  separate  location.  ) 

begin 

case  ix  of 

t  t  begin 
drier  j 
uriteln  ) 

uritelnt  '  AAPMPN  WEAPONS  PROSRAHMj 

uritelnt  *  »**=•»»»  a  a  a  B  =  a  a  aaaaaaa')} 

uriteln  j 
uriteln  j 

uritelnt  'This  prograa  creates  a  ueapoas  base  and  an  attack  pattern 
'base  for  the'  )  j 

uriteln  ; 

uritelnt  'Modified  version  of  the  attack  assessment  prograa  *  AARttO.', 

'  This  data  is  '  )  } 

uriteln  j 

uritelat  'to  be  used  in  concert  uitb  a  target  bast  developed  by  the  ', 
'prograa  AAPTST,'  )  j 

uriteln  ; 

uritelnt  'AAPT6T  and  AAfWN  are  iudepeadeot  of  ooe  another  and  permit 
'easy  update  of  '  )  } 


3*3-11 


writeln!  'the  target,  weapon,  and  attack  pattern  data  bases.  The 
'output  tile  of  '  >  ; 

writeln  ; 

writeln!  'this  program  and  AAPT6T  are  combined  by  the  program  ', 
'AAPNSN  to  torn  the'  >  ; 

writeln  ; 

writeln!  'laundered  input  file  for  the  main  program  -  AAFMOD.  Your  ' 
'options  for  this'  >  } 

writeln  ; 

writeln!  'program  are:'  )  ; 
writeln  ; 

writeln!  '  8:  Create  a  new  weapons/pattern  base.'  > 

Britain!  '  1:  Update  an  existing  weapons/pattern  ', 

'base.'  )  } 
ichc  :=  -t  j 
repeat 

write  (  'Enter  choice  =>  '  >  | 
intread!  ichc  )  ; 
until  chkgood!  ichc,  1,  8  )  ; 

id  ; 


igin 

drscr  j 

writeln 

writeln! 

writeln 

writeln! 

writeln! 

writeln! 

writeln! 

writeln! 

writeln! 

writeln! 

writeln! 

writeln! 

writeln! 

wdteln 

writeln! 


'Crater  table  format  is:'  )  j 


'target 

'hardness'  )  j 


wpo  I 


wpo  2 


wpo  3 


) 


crater  sixel  crater  sixe!  crater  sixel...'  > 
crater  size2  crater  siae2  crater  si»2...'  ) 

} 


'  >  i 
'>  l 
'  )  1 
'>  I 
'  )  1 


'Crater  sixel  is  the  sixe  for  the  weapon  against  TOL 
'surfaces  if  the  hardness'  >  { 

writeln!  'code  is  for  pavoents,  or  tear  miss  crater  sixe 
'for  buildings.  Crater  sixe2'  )  ; 

'is  the  sixe  for  the  weapoo  against  taxiways 
'if  the  hardness  code  is  for'  >  j 
'pavoktnts,  or  direct  hits  against  buildings.'  )  ; 


writeln! 

writeln! 


3  :  begin 
drsc?  5 
writelo  j 

sriialst  'Crater  data'  )  j 
writeln  j 

writelnt  'The  damage  nechanisa  of  MP/M PHM  is  cratering.'  )  : 
writeln  ; 

writelst  'AAftfflO  uses  a  3-d  array  (  i,  j,  k  )  that  you  oust  now  ", 
'generate.'  )  } 

writeln  j 

writelnt  'The  size  of  a  crater  is  defined  by  the  ctabinatioo  of:'  )  ; 
writeln  ; 

writelnt  '  i:  a  defined  level  of  target  hardness,  thickness,  type  ', 
'of  material,  etc.,'  )  ; 

writelnt  '  all  cabiBed  into  one,  categorical  hardness  code.'  )  ; 
writeln  ; 

writelnt  '  j:  a  defined  type  of  warhead,  and'  >  ; 
writeln  ; 

writelnt  '  k:  a  defined  type  of  interaction.'  )  5 
writeln  ; 
paase  \ 
writeln  ; 

writelnt  'This  section  builds  the  crater  table  for  each  hardness  code  ', 
'you  specified.  The'  )  j 

writelnt  'codes  will  be  handled  in  the  order  entered  in  AftFTGT.  ', 

'For  each  hardness  code'  )  } 

writelnt 't  pavawnt/twilding  type  ),  you  will  enter  crater  sizes  ', 

'  for  each  of  the'  )  ; 

writelnt  'potential  weapons  to  be  defiaed.  These  weapons  interact  ', 
'in  varying  manners'  )  : 

writelnt  'with  the  pavewests/boildiags  depending  on  how  close  to  the  ', 
'target  the  weapons'  )  ; 

writelnt  'iapact.  Fir  a  specific  weapon  and  target,  yoo  will  ', 

'enter  both  of  the  possible'  )  j 

writelnt 'interaction  types  and  wove  to  the  sent  weapon.  For', 
'pavoweots,  interaction'  )  ; 

writelnt  'types  are:  crater  size  to  deny  takeoff/landings  ', 

'and  crater  size  to  deny  taii'  )  j 
writelnt  '<  probably  smaller  ).  For  buildings,  interaction  ', 

'types  are:  crater  size  for'  )  ; 
writelnt  'near  nisi  and  crater  size  for  direct  hit  ', 

't  probably  larger  ).  After  entering'  )  ; 
writelnt  'all  the  weapon  effects  against  a  particular  ', 

'target,  the  program  will  nave  to'  )  j 
writelnt  'the  target  is  the  segecece  developed  by  MFTET.'  )  j 
paase  } 
end  | 
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4  :  begin 

drscr  j 
writeln  ; 

writelnt  '  >)>)  READ  CAREFULLY 

'<<<<')  ; 

writeln  ; 

writelnt  'For  the  ccabination  o-f  hardness  and  warhead,  AAFHQD  uses 
'two  different  crater'  )  5 
writelnt  'sizes.'  )  ; 
writeln  ; 
writeln  5 

writt-lnt  'If  the  target  hardness  was  assigned  to  a  pavenent,  ', 
'first  enter  the  size  of'  )  j 

writelnt  'disruption  severe  enough  to  deny  hi-speed  TOL  ', 
'operations,  then  the  size  of'  )  j 
writelat  'disruption  severe  Kuygfc  to  deny  taxi  operations,'  )  5 
writeln  ; 
writeln  ; 

writelnt  'If  the  target  was  a  building,  first  enter  the  crater  radius  ', 
'resulting  froa  a'  )  ; 

writelnt  'near-aiss,  then  the  radius  resulting  froa  a  direct  hit.'  )  ; 
writeln  ; 
end  | 

5  1  begin 

writ«1u<  'The  aaxiat*  n«bcr  of  weapons  is  6 >  j 
writelet  'Yon  anst  delete  t  weapon  prior  to  adding  •  new  one.'  )  ; 
writeln  j 
Nd  j 

6  t  begin 

writelit  'The  auiana  nuaber  of  attack  patterns  is  12.' )  ; 
writelet  'Yen  will  have  to  delete  a  pattern  before  adding  a 
'bow  oee.'  )  { 

writeln  j 

end  j 

7  1  begin 

write<  'Yen  presently  have  ',  nwpa,  '  weapon'  )  ; 

if  Mpe  O  1  then  writet  's'  )  \ 
writolst  '  defiled.'  )  j 
writela  t 

«*1 

I  :  begin 

writet  'Yen  presently  have  ',apatt,'  patters'  )  j 
if  «f«tt  O  1  tine  writet  's'  >  j 
writelet  '  dtfiaed.'  )  j 
writets  j 

end  j 
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9  :  begin 

uriteln  ; 
uriteln  ; 

uri ieln<  'DATA  INPUT  COMPLETE')  5 
uriteln  ; 
uriteln  ; 
uriteln  •, 

uritelnt  'You  are  -finished  developing  the  ueapon/pattern  base.  The  ', 
'next  step  is  to  put'  )  5 

uriteln  5 

uritelnt  'together  a  mission  using  AAPMSN  and  the  tuo  files  you  ', 
'have  generated:  the'  )  ; 

uriteln  ; 

uritelnt  'target  file  (  from  AAPTGT  )  and  the  ueapon/pattern  file', 
'froei  this  program.' )  ; 

uriteln  ; 

uritelet  'AAPMSN  uses  these  files  in  combinations  you  specify  to  ', 
'generate  a  single,'  )  ; 

uriteln  ; 

uritelat  'user-named  input  file  for  the  main  program  —  AAPHOD.'  )  ; 
pause  ; 
uriteln  ; 
uriteln  j 

uritelat  'Writing  to  dish  ...')) 
uriteln  j 

end  { 

end  5  (  case  > 
end  |  (  procedure  info  ) 

procedure  upematrix  ; 

var  i,  j  »  integer  5 
msg  :  striigl221  j 

procedure  uriteheader  5  <  header  for  ueapons  matrix  ) 

begin 

uriteln  t 

uritet  'Weapon  •  !  j  »  r  )  j 

for  j  t«  2  to  aupn  do  uritet  '  ',  j  )  1 

uriteln  ; 

uritelat  ' - ! - ', 

- - -  I 

end  )  t  procedure  uri  t deader  ) 
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begin  { upraatrix  ) 
info!  2 )  5 
if  nhard  >  8 

then  osg  i=  '  PRESS  tttl  KEY 
else  nsg  :=  '  '  j 

writeheader  ; 

wriieln<  ‘'Hardness  !  Radius  of  Circular  Crater'  )  ; 
uriteln!  '  Code  !'  >  ; 

-for  i  s=  1  to  nhard  do  begin 
write!  asgt  !  2  *  i  >  -  1  1,'  ',  i:2,  #  K=1  !'  )  j 
-for  j  i=  i  to  nupn  do  write!  2.8  /  sqrt(  pi  )  f  crtabli,j, 11:9:1  >  ; 
uriteln  ; 

write!  nsgi  2*  i  3,'  K=2  !'  )  5 

for  j  :=  i  to  nupn  do  write!  2.8  /  sqrt(  pi  )  it  crtabti,,}, 21:9:1  )  ; 
uriteln  } 

if  i  »  9  then  repeat  until  Keypressed  ; 
end  ; 

uriteln!  ' - ! - * - 

- '  >  1 

if  i  >  8  then  uriteheader  ; 
pause  ; 

ead  ;  {  procedure  wpomatrix  1 

procedure  pattnatrix  j 
war  i,  j  :  integer  j 
begin 
clrscr  j 

if  apatt  *  8  then  begin 
uriteln  j 

uriteln!  'The  attack  pattern  aatrix  is  npty.' )  j 

pause  1 
end  | 

for  i  :»  1  to  apatt  do  begin 
uriteln  ; 

write!  'Pattern «',  i, '  has  ipatti.ll,"  ' )  j 
cast  ipatti,41  of 
•  :  begin 

urite!  'general  purpose  bond'  )  j 
if  i patti, il  0  1  then  urite!  's'  )  1 
cad  ; 

1  :  urite!  'C8U  (  rectugular  footprint )  uith ',  ipaUi,21, 

'  sub-munitions  each'  )  j 

2  :  urite!  'C8U  <  elliptical  footprint  )  uith  ',  ipatti,21, 

'  sub-monitions  each'  )  ; 
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3  :  begin 

write!  ‘'guided  boob'  )  ; 
if  ipatli , 13  O  i  then  write!  's'  )  } 
end  j 

end  5  {  case  ) 
writeln!  V  )  | 

writeln!  'Crater  Table  Index:  j  =  ',  ipatli,31,  '.  NOTE:  Error  ' 
'values  shown  below  are  REP  and  DEP.'  )  ; 

wri tel n  ; 
if  i patti, 41  )  2 

then  write!  '  Optimal  Optimal  Near-miss  ' 

'Near-Niss  '  ) 

else  write!  '  Delivery  Delivery  Ballistic  ' 

'Ballistic  '  )  ; 

if  i patti ,4]  in  I  i,  2  1 
then  uriteln<  '  Cannister  '  ) 
else  writeln!  '  Weapon'  )  ; 

uriteln!  'Range  Error  Deflection  Error  Range  Error  ', 
'Deflection  Error  Reliability'  )  j 

urite<  1.475  X  pattli, 11:7:1  >  j 

for  j  :=  2  to  4  do  write!  1.475  X  pattli ,jl: 17:6  )  ; 

writeln!  pattti t?l : 17:3  )  ; 

writeln  j 

if  ipatti,41  in  t  1,  2  1  thee  begin 
writeln!  '  Footprint  Footprint  Void  ' 

'Void  Sublet'  )  ; 

writeln!  '  Length  Width  Length  ', 

'Width  Reliability'  )  ; 

writeln!  ' -  -  — —  ', 

write!  2  X  pattt i,51:8:»f  2  X  pattli ,41: 18:1  )  ; 
if  ipatli,41  *  1 

then  write!  '  N/A  N/A  '  ) 

else  write!  2  X  pattli, 71:14:1,  2  X  pattli, 81:14:8  )  ; 
writeln!  pattli, til: 17:3  )  \ 
end  ; 

if  ipatti,41  ■  3  then  begin 

writela!  'Bross  Error  6ross  Error  Probability  of  ' 
'Cuelative  Probability  of'  )  i 
writeln!  'Range  Error  Deflection  Error  Optimal  Guidance 
'NeaHliss  or  better'  )  } 

writeln!  ' - - -  ' 

writeln!  1.473  X  pattli, 31:8:1,  1.473  x'pattli, 41:15:8, 
pattli, 71:22:3,  pattli, 81:24:3  >  s 

ned  j 
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if  ipattijU  >  1  then  begin 
writeln  ; 
writeln  ; 

writeln*  "Stick  Impact  Point  Data:  <  Distance  from  mean  impact 
"point.  )'  )  ; 

writeln  ; 

write*  "  Weapon  St"); 

for  j  :=  2  to  ipatii,!)  do  write*  j:d  )  ; 

writeln  ; 

write*  '  - '  >  ; 

for  j  :=  2  to  ipatti,U  do  write*  " - '  )  ; 

writeln  •, 

write*  '  Range"  >  } 

for  j  :=  i  to  ipatti,U  do  urite(  patti  i,  2  l  j  ♦  9  3:6:8  )  ; 
writeln; 

write<  "  Offset"  )  ; 

for  j  :=  i  to  ipatli , 13  do  write(  pattt  i,  2  X  j  ♦  10  3 :6:8  >  ; 
writeln  ; 
end  ; 
pause  ; 
end  ; 

end  ;  {  procedure  pattmatrix  3 

(- . — ■  . v . . = - - - T .  I,  -T -  I- 

procedure  entwpn*  i,  j  :  integer  )  ; 

{  This  procedure  enters  a  weapon  into  the  weapon  matrix.  ) 
begin 

crtabti,4,U  :=  -1  ; 
crtabli,j,2]  :»  -1  ; 
writeln  ; 
if  nsqr  =  I 

then  writeln*  'Square  craters:  use  i/2  the  length  of  a  side."  ) 
else  writelnt  "Round  craters:  use  radius  of  a  circular  crater,"  )  ; 
repeat 
writeln  ; 
if  i  <s  nhardp 

then  write*  "Pavmaent  code  ",i,",  weapon  type  Deay-TOL  size  ", 
'*»>"> 

else  write*  "Building  code  weapoa  type  Near-miss  size  ", 

"3»>  '  >  ; 

real  read*  crtab(i,j,H  )  ; 
until  crtab*i,j,n  )*  I  ; 
repeat 
writeln  ; 
if  i  *>  nhardp 

then  write*  'Pavement  code  ",i,",  weapoa  type  Oeny-tani  size  ", 
'=*>  '  ) 

else  write*  "Building  code  ",i,",  weapoa  type  ",j,":  Direct  hit  size  ", 
"->  "  )  | 
real read*  crtab(i,j,21  )  ; 
until  crtaMi,j,2J  >  I  ; 
drscr  ; 


if  nsqr  «  i  then  begin 
crtabti,j,lJ  :=  crtabti t j ,  11  3E  sqrt!  pi  )  /  2  ; 
crtab£i,jf2]  :=  crtabli,j,2]  3E  sqrt(  pi  >  /  2  ; 
end  *, 
uriteln  ; 

end  ;  {  procedure  entwpn  } 

!= - - - - - —  1  ) 

procedure  newupn  j 

{  This  procedure  creates  a  new  weapons  base  to  be  written  to  a  user  defined 
file  nane.  ) 
var  badnane  :  boolean  ; 
i,  ichc,  j  :  integer  ; 

begin 

repeat 

processfile!  fnane,  'New  Weapons'  )  ; 
assign!  diskfile,  fnaae  )  ; 

<$I-}  reset<  diskfile  )  j  WH  check  to  see  if  diskfile  exists  ) 
badnane  f  ioresult  =  8  ;  (the  ‘new*  file  already  exists  } 
if  badnane  then  begin 

write!  'File  <',  fnane,  ')  already  exists.  Erase?'  )  ; 
query!  ichc,  1  )  j 
if  ichc  =  8  then  begin 

write(  'Are  you  SURE  you  want  to  erase  file  <', fnane,  '>  ?'  )  j 
query!  ichc,  l  )  j 
if  ichc  s  I  then  begin 
rewrite!  diskfile  )  | 
badnane  f  false  } 
end  ; 
end  ] 
end  ; 

until  not  badnane  s 
info(  3  )  | 
repeat 
drscr  | 
nhard  f  -1  } 
nhardp  f  -1  j 
repeat 
writeli  { 
uriteln  } 

uriteln!  'Enter  the  total  nunber  of  hardens  levels  you  specified' )  | 
write!  'in  progrm  AAPTBT  =>  '  )  j 
intread!  nhard  )  ) 
until  chkgood!  nhard,  11,  i  )  | 

repeat 

uriteln!  'Enter  the  nunber  of  hardness  levels  reserved  for  payments'  )  \ 
write!  'in  progrm  AAPTfiT  **>  '  )  | 
intread!  nhardp  )  { 
drscr  ; 

until  chkgood!  nhardp,  nhard,  I  )  ; 
hardnns  ; 

write!  'Are  these  correct?'  )  j 


query!  ichc,  1  )  j 


until  ichc  =  8  ; 
repeat 

write<  'Enter  number  of  different  types  of  warheads  (  max  is  6  )  ==)  '  )  ; 
intreadt  nupn  )  ; 
until  cfikgoodt  nwpn,  4,  1  )  ; 
info<  4  )  ; 
query (  nsqr,  8  )  ; 
for  i  !=  1  to  nhard  do 
for  j  :=  1  to  nwpn  do  begin 
entwpnt  i,  j  )  ; 
end  ; 
writeln  ; 

end  ;  {  procedure  neuwpn  J 


procedure  delwpn  j 

{  This  procedure  deletes  a  weapon  type  fra  the  weapon  matrix.  } 
var  i,  ichc,  j,  jchc,  k,  pattern  t  integer  ; 
pattok  i  boolean  ; 

del  this  :  array  U..121  of  boolean  ; 

begin 

pattok  :3  true  j 

for  i  s=  1  to  12  do  delthistil  s=  false  ; 
if  nwpn  =  I 

then  writelnt  'There  are  no  more  weapons  left  to  delete.'  ) 
else  begin 
repeat 

write<  'Enter  weapon  number  to  delete  **>'); 
intreadt  ichc  )  ; 
until  chkgoodt  ichc,  nwpn,  1  )  j 
drscr  j 
writeln  | 

for  i  i«  1  to  npatt  do  if  ipatti ,33  3  ichc  then  begin 
write<  i:4  >  \  (  pattern  references  the  weapon  to  be  deleted  ) 

del thisCil  i=  true  j  {  flag  pattern  to  be  deleted  ) 
pattok  s=  false  ; 
end  { 
if  pattok 
thee  begin 

writelnt  'There  are  no  patterns  defined  for  weapon  I',  ichci2, 
so  no  patterns  will  be  deleted'  )  ] 
writelnt  'fra  the  pattern  matrix.  However,  applicable  crater  ', 
'table  index  values  will'  )  j 
writelnt  'be  adjusted  as  necessary.'  )  j 
end 

else  begin 

write! n<  '  <*»  WARNING'); 

writeln  | 

writeint  'The  above  listed  patterns  are  defined  for  tbeweapw  ', 
'you  wish  to  delete.'  )  j 

writelnt  'Therefore,  if  you  delete  weapon  I',  ichci2,  ',  these  ', 
'patterns  will  be  deleted  also.'  )  ; 
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writelnt  'Furthemore,  applicable  crater  table  index  values  ', 
''will  be  adjusted  as'  >  ; 
writelnt  'necessary.'  )  ; 
end  ; 
writeln  ; 

writelnt  'Mould  you  like  to  review  the  pattern  natrix  before'  )  5 

writet  'deleting  weapon  I  ',  ichc,  '?'  >  ; 

queryt  ichc,  1  )  : 

if  jchc  =  I  then  pattaatrix  ; 

writeln  ; 

writet  'Are  you  SURE  you  want  to  delete  weapon  I  ' ,ichc ,'?'  )  ; 
query<  jchc,  1  )  ; 
drscr  { 
writeln  $ 
if  jchc  =  I 
then  begin 

for  pattern  p  (2  downto  1  do  if  delthistpatternl  then  begin 
npatt  :=  npatt  -  i  ; 
if  pattern  (  npatt  ♦  1  then 
for  i  p  pattern  to  npatt  do  begin 
for  j  p  l  to  4  do  ipaUi,j]  p  ipatti  4  1,  j]  j 
for  j  p  1  to  34  do  patUi,j]  p  pattti  «  1,  il  ; 

end  ; 

* 

for  i  s8  t  to  npatt  do  if  ipatti, 31  j  ichc 
then  ipatti, 33  :=  ipatti, 33  -  1  j  (  pattern  crtab  index  info  3 
nwpn  Is  nwpn  -  1  j 
if  ichc  <  nwpn  4  l  then 
for  i  :»  i  to  nhard  do 
for  j  p  ichc  to  nwpn  do 

for  k  p  i  to  2  do  crtib(i,j,k3  p  crtabti,j*l,k3  ; 
writelnt  'Weapon  •  ichc,  '  deleted.'  >  | 
end 

•1st  writelnt  'Meapon  I  ',  ichc,  '  NOT  deleted.'  )  \ 
end  j 
writeln  ; 

cad  {  (  procedure  delwpo  3 


procedure  addwpa  ) 

(  This  procedere  adds  a  weapon  type  to  the  weapons  utrix.  ) 
var  i  t  integer  j 
begin 

if  nwpn  >»  6 
then  infot  3  ) 
else  begin 

nwpn  t*  nwpe  4  |  | 
qeeryt  asqr,  8  >  ; 

for  i  p  i  to  nhard  do  entwpnt  i,  nwpn  )  j 
end  ( 

end  ]  t  procedure  addwpe  3 


procedure  inswpn  ; 

{  This  procedure  inserts  a  nm  weapon  into  the  crater  table.  > 
var  i,  j,  k,  wpopos  :  integer  ; 
begin 
drscr  j 
writeln  ; 
case  owpn  of 

0  :  addupn  ; 

1..5  s  begin 

writelnt  'The  new  weapon  will  be  inserted  at  the  position 
'you  specify,  displacing'  )  j 

writelnt  'previous  entries.  The  pattern  aatrix  will  be  adjusted 
'to  reflect  the  modified'  )  5 
writelnt  'weapon  numbers  <  Crater  Table  Index  j  ).'  )  5 
writeln  j 
info(  7  >  j 
repeat 

writet  'New  weapon  to  be  inserted  at  position  »  =>  '  )  j 
intreadt  wpopos  )  ; 
writeln  ; 

until  chkgoodt  wpnpos,  nwpa  ♦!,!>} 
if  wpopos  •  nwpa  ♦  i 
then  addwpa 
else  begin 

queryt  nsqr,  8  >  { 

for  j  i=  nwpe  dcneato  wpopos  do  <  make  room  for  insert ) 
for  i  s*  1  to  shard  do 

for  k  ««  t  to  2  do  crtabt  i,  JM,  k  ]  t»  crtabl  i,j,k  1  j 
nwpe  j*  nwpa  ♦  t  f 

for  i  1  to  aherd  do  entupet  i,  wpopos  )  1  { eater  new  wpa  ) 
for  i  s»  1  to  npatt  do  (  adjust  pattern  aatrix  crtab  index  J  J 
if  ipatU,3I  >  upapos  thee  ipatU,31  1*  i  patti,  31  ♦  I  j 
end  } 

tod  t 

6  s  iofot  3  > 


tod  1  (  cast  ) 

tod  |  (  procedure  inswpo  ) 


} 


( — . —  — . — . —  - -  . -  . . 

procedure  nodwpn  ; 

{  This  procedure  redefines  m  existing  weapon  without  altering  the 
corresponding  pattern  in  the  pattern  natrix.  } 
var  i,  aodpos  :  integer  ; 
begin 

it  nwpn  =  8 
then  begin 

writelnC  'There  are  no  weapons  in  the  aatrix  to  redefine.  You  now  ', 
'oust  add  a  weapon.'  )  j 

writeln  ; 
end 

else  begin 

writelnt  'Now  select  the  weapon  you  wish  to  redetine.  Note  that  ', 

'any  corresponding'  )  ; 

writelnt  'patterns  in  the  attack  pattern  natrix  will  renain  ', 
'unchanged.'  >  ; 

writeln  ; 
into(  7  )  ; 
repeat 

write<  'Weapon  to  be  redetined  is  I  =0  '  )  j 
intreadt  aodpos  )  ; 
writeln  ; 

until  chkgoodt  aodpos,  nwpn,  1  )  j 
query <  nsqr,  8  )  ; 

for  i  i®l  to  nhard  do  eotwpot  i,  aodpos  )  ;  t  enter  weapon  into  ) 
end  | 

end  ]  t  procedure  aodupo  ) 

(— —  «=====«»»=  . . .  — ») 

procedure  oldupn  | 

(  This  procedure  updates  an  existing  weapoas  base.  } 
var  i,  ichc,  J  i  integer  ) 
begin 

repeat  proceisfilet  foaae,  'Old  Weapons'  )  until  filexistst  tnaae  )  | 
writeln  j 

writelat  '  Reading  tile  <  ',  tnaae, 

writeln  \ 
writeln  \ 

read(  disktile,  nhard,  nhardp,  nwpn  )  ; 
tor  i  t*  1  to  nhard  do  begin 
tor  j  i*  1  to  nwpn  do  readt  disktile,  crtabti,J,U  )  ; 
tor  i  1  to  nwpn  do  read<  disktile,  ertabti ,i,23  )  ; 
end  j 

readt  disktile,  npatt  )  | 
tor  i  *»  l  to  npatt  do  begin 
for  i  t=»  l  to  A  do  readt  disktile,  ipatti.jl  )  | 
for  j  i*  1  to  11  do  readt  disktile,  pattti.jl  )  ; 
for  j  t*  ti  to  (  2 1  ipatli.il  HI )  do  readt  disktile,  pattti.il  >  | 
end  { 

closet  disktile  >  j 
infot  7  )  { 

hardness  j 
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procedure  patdat!  i  :  integer  )  t 

(  This  procedure  collects  prelininary  pattern  data.  ) 

begin 

ipatCi « U  i=  1  j  (  default  ntaber  of  weapons  in  the  pattern  ) 
ipatCi ,23  t=  1  j  {  default  ntaber  of  sutauaitions  } 
drscr  j 
writeln  ; 

writeln!  'Describe  weapons  delivery  patters  rnnber  ',  i,  Enter;'  )  \ 
writeln  ; 

query!  ipatli, 4],  4  )  j 
if  ipatli, 41  <  3 
thee  repeat 

write!  'Nuaber  of  weapons  in  the  patter*  <  aaxiftua  12  )  *»>  '  )  j 
intread!  ipatli , U  )  j 
until  chhgood!  ipatli, U,  12,  l )  ; 
repeat 

if  ipatli, 41  in  M,  2 1  thee  write!  'Canister'  )  else  write!  'Weapon'  )  \ 
write!  '  fuxe  reliability  *■)')} 
realread!  pattti, 91  )  | 
until  probchh!  pattti ,9]  )  j 
pattti,ll3  ta  pattti ,91  ) 
uriteln  ; 
repeat 

write!  'Enter  the  weapon"*  Crater  Table  Index  **>'); 
in tread!  ipatli, 31  )  ) 
until  chkgood!  ipatli, 31,  awpa,  I  >  $ 

Nd  j  (  procedure  patdat  1 


{===== —  —  - - -  =  .  = . == — ) 

procedure  delpat  ; 

{  This  procedure  deletes  an  attack  pattern  fros  the  pattern  aatrix.  ) 
var  i,  ichc,  j,  jchc  :  integer  ; 
begin 

it  npatt  =  I 

then  aritelnt  'There  are  no  patterns  lett  to  delete.'  ) 
else  begin 
repeat 

aritet  'Enter  pattern  nunber  to  delete  =>  '  >  ; 
intreadt  ichc  )  ; 
until  chkgocdt  ichc,  npatt,  1  )  } 
aritet  'Are  you  SURE  you  want  to  delete  pattern  ',ichc,'?'  )  ; 
queryt  jchc,  i  )  ; 
drscr  5 
ariteln  ) 
it  jchc  =  § 
then  begin 

npatt  npatt  -  1  j 
it  ichc  <  npatt  ♦  1  then 
tor  i  s=  ichc  to  npatt  do  begin 
tor  j  t=  1  to  4  do  ipatti,jl  :*  ipatti  ♦  l,  jj  j 
tor  j  p  I  to  34  do  pattti,j]  ;=>  pattti  ♦  I,  jj  j 
end  1 

aritelnt  'Pattern  ',  ichc,  '  deleted.'  >  3 
ead 

else  aritelnt  'Pattern  ',  ichc,  '  NOT  deleted.'  )  1 
end  ; 
ariteln  ; 

end  }  (  procedure  delpat  ) 


procedert  geidedt  i  1  integer  )  ; 

<  This  procedure  enters  intonation  tor  guided  aunitions.  ) 
var  ichc,  j  $  isteger  j 
begin 

qeeryt  ichc,  1  >  | 
eritele  | 

aritelnt  'Enter!'  )  3 
it  ichc  »  1 

then  begin 

aritet  'Optiaal  geidaece  REP  *“>  '  )  3 

realreadt  pattli.ll  )  3 

aritet  'Optiaal  geidaece  0£?  -)  '  )  j 

realreadt  pattti ,21  )  } 

aritet  'Near ni  is  REP  “)  '  >  5 

realreadt  patt(i,31  )  3 

aritet  'Near-aUs  OEP  “)  '  )  3 

realreadt  pattti, 41  I  1 

aritet  '6rcts  error  REP  **>  '  )  j 

realreadt  pattti ,31  )  ; 

aritet  'Grots  error  OCP  =*)  '  )  3 

realreadt  pattti, dl  )  3 
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for  j  s=  1  to  6  do  pattti, jl  :=  pattti, j]  /  0.675  ; 
end 

else  begin 

uritet  'Optiaal  guidance,  range  error  sigtn  =°>  '  )  | 
realreadt  pattti, 11  )  ; 

uritet  'Optiaal  guidance,  deflection  error  sigia  =>  '  )  j 
realreadt  pattCi ,2]  )  ; 

uritet  'Nearniss,  range  error  sigw  =>  '  )  j 
realreadt  pattti, 31  )  ; 

uritet  'Nearuiss,  deflection  error  sigfia  =>  '  >  ; 
realreadt  p..tti,41  )  j 

uritet  '6ro$s  error,  range  error  signa  =)  '  >  | 
realreadt  pattti ,51  )  j 

uritet  'Gross  error,  deflection  error  sigia  =0  '  )  j 
realreadt  pattti, 61  )  ; 
end  ; 
drscr  j 
uriteln  j 
repeat 

uritet  'Probability  of  optiaal  guidance  =>  '  )  ; 
realreadt  pattti, 71  >  ; 
until  probcbkt  pattti, 71  1  3 

repeat 

uritet  'Cuaulative  probability  of  near-niss  guidance  or  better  *»>  '  )  j 
realreadt  pattti, 81  >  t 

if  t  pattti, 81  <  pattti,?)  >  or  (  pattti, 81  )  1  )  then  begin 
uritelot  'Cuaulative  probability  aust  be  egeal  to  or  greater  than  ', 
'the  probability'  1  3 

uritelat  'of  optiaal  guidance  entered  above.'  >  ; 
uriteln  | 

uritelot  'Enter  a  value  between  ',  pattti ,71 j?s5,  '  and  l.'  )  j 
ur i tela  ; 
cod  } 

until  t  pattti ,8)  pattti,?)  )  nnd  (  pattti, 8)  O*  I  )  j 
end  3  (  procedure  guided  ) 

procedure  »u»U;t  i  i  integer )  3 
(  Ibis  procedure  Manually  enters  a  stick  of  weapons.  ) 
var  jdef,  jrng,  lj  ;  integer  3 
begin 
drier  j 
uriteln  1 

uritelat  'For  etc!  weapon,  enter  its  signed  <«/**  range  and  deflection  ', 
'position'  )  3 

writelnt  'within  the  stick,  referenced  to  tie  aiopoint.'  )  j 
uriteln  ; 

for  lj  j*  I  to  ipatti,!)  do  begin 
jrng  :»  2  1  I j  ♦  9  } 
jdef  !*  jrng  «  I  ; 

writnt  'Meapoe  lj,  '  rang*  position  *»>'); 
realreadt  pattti, jrng)  )  3 
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write<  'Weapon  ',  Ij,  '  de-flection  position  =)  '  ) 
real  read!  pattti , jde-f]  )  : 
writeln  j 
end  ; 

end  ;  l  procedure  nanstk  } 


procedure  atostK<  is  integer  )  ; 

{  This  procedure  calculates  inpact  points  for  a  stick  of  weapons.  } 
var  j,  jdef,  jrng,  lj,  np  :  integer  \ 

df,  dt,  fps,  ft,  sstart,  stick],  tas,  theta,  wft  :  real  ; 

begin 

write(  'Enter  true  airspeed  (  knots  )  =)  '  )  j 
ealrsacK  tas  )  ; 
fps  :=  1 .4875  31  tas  \ 

write(  'Enter  dive  angle  in  <  degrees  )  =>  '  )  i 
realreadf  theta  )  ; 

theta  theta  1  pi  /  181  }  (  convert  dive  angle  to  radians  } 
queryt  np,  5  )  ;  (  nps  returned  as  1  for  single  release,  2  for  pairs  } 
np  :=  round(  1.25  *  ipatli,ll  /  np  )  ;  <  calculate  I  pulses  based  on  t  wpns  ) 
if  np  )  1 
then  begin 

writel  'Enter  intervalcaeter  setting  (  Billiseconds  )  =)  '  )  ; 
realreadt  dt  )  ; 

dt  s=  dt  I  1181  {  (  convert  dt  to  seconds  } 
end 

else  dt  i=  I  j 

write<  'Enter  width  of  weapon  stick  (feet)  =>  '  )  | 
realread<  ft  )  | 
wft  ft  /  2  } 

df  i*  fps  if  dt  X  cost  theta )  ] 
stickl  i=  df  X  (  np  -  1  )  j 
sstart  j=  -1.3  X  stickl  -  df  } 
if  ipatU,U  3  np  (  dropping  in  singles ) 
then  for  U  »*»  1  to  ipatli,ll  do  begin 
Jrng  t=  2  X  lj  ♦  9  | 

Jdef  jrng  ♦  i  | 
pattti,Jrngl  sstart  ♦  lj  X  df  ; 
pattli ,jdtfl  t«  wft  | 

if  Ij  aud  2  ■  I  then  pattli, Jdefl  patUi,jd»fl  X  -1  ; 

tad 

else  begin  (  dropping  in  pairs  ) 
j  t*  2  ) 

while  J  (a  ipatti,l]  do  begin 
pattli,  2  X  J  ♦  73  i»  sstart  ♦  df  X  J  /  2  } 

pattli,  2  X  j  ♦  83  »=  wft  j 

pattli,  2  X  j  ♦  91  j3  sstart  ♦  df  X  j  /  l  j 

pattli,  2  I  J  ♦  111  !=  -1  1  wft  : 

J  ia  j  *  2  | 
end  ; 
tad  ) 

tod  :  (  procedure  atostk  ) 


( - - -  ■  . . = - 

procedure  descbu(  i  :  integer  )  ; 

{  This  procedure  enters  descriptive  information  for  CBU  patterns.  } 
var  at ,  aw,  vl,  w  :  real  ; 
begin 
cirscr  ; 
writeln  ; 

write*  'Enter  the  nunber  of  bcnblets  per  CBU  cannister  =>  '  )  j 

intread*  ipatti,21  )  ; 

repeat 

write*  'Bonblet  fuae  reliability  =>  '  )  j 
real read<  pattti,  181  )  ; 
until  probchiU  pattti,lBl  >  ; 
writeln*  'Describe  CBU  bonblet  distribution.  Enter:'  )  ; 
writeln  ; 

write*  'Dispenser  ground  coverage,  full  length  <  range  )  =>  '  >  } 
real  read*  al  )  j 
pattCi ,53  :=  al  /  2  i 

write*  'Dispenser  ground  coverage,  full  width  (  deflection  >  =>  '  ) 
real read*  aw  >  ; 
pattEi ,d]  i~  au  /  2  j 
if  ipatEi ,41  >  1 
then  begin 

write*  'Void  length  (  range )  =*>  '  )  5 
real  read*  vi  )  ; 
pattti,?]  :=  vl  /  2  j 

write*  'Void  width  (  deflection  )  =»>  '• )  5 
real read*  w  )  j 
pattti, 81  :=  vw  /  2  j 

end 

else  begin 

pattti,?]  :=  8  | 
pattti, 81  1=  8  j 
end  ; 

end  ;  (  procedure  descbu  ) 


■) 


procedure  entpat*  i  :  integer  )  ; 

(  This  procedure  enters  a  delivery  pattern  at  into  i  in  the  pattern  matrices.) 

var  j,  opatt  :  integer  i 
begin 

pattti, ill  8  ] 
pattti, 121  :»  8  { 
patdat*  i  )  j 
if  ipatti ,41  >  3 
then  guided  *  i  ) 
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else  begin 
clrscr  j 
writeln  ; 

writelnt  'Describe  error  distributions  with  range  and  de-f lection 
'errors  probable.'  )  j 

writeln  ; 

writelnt  'Enters'  >  i 
writeln  j 

write(  'Delivery  range  error  probable  =)  '  )  5 
realreadt  pattEi , U  )  *, 

write(  'Delivery  de-flection  error  probable  =)  '  )  ; 
realreadt  pattti,21  )  j 

writet  'Ballistic  range  error  probable  =)  '  )  j 
realreadt  pattEi ,33  )  ; 

writet  'Ballistic  deflection  error  probable  =0  '  )  | 
realreadt  pattE i ,43  )  j 

for  j  s=  t  to  4  do  pattEi ,J3  s=  pattti,j]  /  8,d?5  i 
if  ipatEi , 11  >  1  then  begin 
query t  opatt,  6  )  ; 
if  opatt  =  8 
then  nanstkt  i  ) 
else  atostkt  i  >  ; 
end  ; 

if  ipatEi ,41  >  8 
then  descbut  i  ) 

else  for  j  :=  5  to  8  do  pattti,j]  :=  8  ; 
end  ; 
clrscr  } 
writeln  ) 

end  ;  t  procedure  entpat  ) 


procedure  addpat  j 

t  This  procedure  adds  an  attach  pattern  to  the  pattern  natrix.  ) 
begin 

if  npatt  )3  12  • 

then  infot  &  ) 
else  begin 

npatt  npatt  +  1  ; 
entpatt  npatt  )  ] 
end  ] 

end  ;  <  procedure  addpat  } 


8-3-29 


procedure  newpat  ; 

{  This  procedure  adds  newly  defined  pattern  data  to  a  new  or  existing  weapons 
base.  } 

var  i  s  integer  } 
begin 
repeat 

writelnt  'Enter  the  nunber  of  different  weapon  delivery  patterns  ', 

'to  be  entered'  >  ; 
write(  '(  Maximal  =  12  )  =0  '  >  ; 
intreadt  npatt  )  ; 
until  chkgoodt  npatt,  12,  1  )  ; 
for  i  :=  1  to  npatt  do  entpatt  i  )  ; 
end  ;  {  procedure  newpat  } 


procedure  inspat  ; 

{  This  procedure  inserts  a  new  pattern  into  the  pattern  natrix  at  position 

patpos.  } 

var  i,  j,  patpos  j  integer  ; 
begin 

clrscr  ; 

writeln  ; 

case  npatt  of 

8  :  addpat  j 

1..11  i  begin 

writelnt  'The  new  pattern  will  be  inserted  at  the  position  you 
'specify,  displacing  '  >  j 
writelnt  'previous  entries.'  >  \ 
writeln  ; 
infot  8  )  ; 
repeat 

write<  'Hew  pattern  to  be  inserted  at  position  I  “>  '  >  ; 
iatreadl  patpos  )  ; 
writeln  ; 

until  cnkgoodt  patpos,  npatt  ♦  l,  1  )  } 
if  patpos  »  npatt  ♦  i 
then  addpat 
else  begin 

for  i  npatt  dounto  patpos  do  begin  t  eake  roc*  for  insert  ) 
for  i  s* * 3 * * * * 8 * * * 12  1  to  4  do  ipatti*  l,j]  j»  ipaUi,j]  ; 
for  j  t*  1  to  34  do  patUi  *  |,j]  ja  pattti,il  { 
end  ) 

npatt  i*  npatt  *  I  ; 
entpatt  patpos  )  { 
end  i 
end  | 

12  t  infot  i  )  ) 
end  ;  <  case  1 

ead  :  (  procedure  iosw»  ) 


(  . -  . .  ' 

procedure  oldpat  ; 

{  This  procedure  nodifies  the  existing  pattern  base  after  the  existing  weapons 
base  has  been  modified .  } 
var  i,  ichc,  j,  p  s  integer  | 
begin 

writelnt  'This  section  adds  and  deletes  attack  patterns  to/fron  the  ', 
'pattern  aatrix.'  )  j 

writeln  j 
repeat 

queryt  ichc,  3  )  ; 
case  ichc  of 
8  :  del  pat  ; 

1  :  addpat  ; 

2  t  inspat  ; 

3  :  wpnatrix  j 
8  !  pattiatrix  j 

end  ;  (  case  } 
until  ichc  =  5  } 

backup  p  fn«e  ;  <  create  a  filenane  equal  to  ) 

p  p  post  '.'.backup  )  j  <  specified  fileone  except  ) 

if  p  O  I  then  delete*  backup,  p,  4  )  |  t  with  a  .BAK  filetype.  ) 

backup  p  backup  ♦  ' .BAK'  5  t  1 

assign*  diskfile,  backup  )  ] 

HI-}  reset*  diskfile  )  j  (♦!♦)  *  see  if  old  .BAK  file  exists  ) 

if  ioresult  =  I  then  erase  *  diskfile  )  5  <  if  yes,  erase  old  .BAK  file  ) 

assign  (  diskfile,  fnaee  >  |  *  fnne »  original  file  ) 

rennet  diskfile,  backup  )  j  <  original  file  now  saved  with  .BAK  one  ) 
clrscr  j 
writeln  j 
writeln  ; 

writetnt  'The  original  version  of  <  ',  fnne,  ')  has  been  saved  in'  >  1 
writelnt  'a  file  niaed  <  ',  backup,  '  >'  )  } 


writeln  j 

end  5  (  procedure  oldpat  ) 


{ -  ===== . ===== -  } 

procedure  outdat  ; 

{  This  procedure  writes  the  weapons  base  to  a  new  tile  with  the  name  specified 
by  the  user  at  program  invocation.  If  the  file  specified  was  an  existing  file 
naaed  <filenane).<filetype),  the  old  version  was  saved  with  the  nane 
(filename. BAK)  by  procedure  oldpat.  } 

var  i,  j,  jr  s  integer  j 
begin 

info<  9  )  j 

assign*  diskfile,  fnane  )  ;  (  reassign  new  file  to  write  as  the  ) 

rewrite*  disKfiie  )  ;  {  original,  user  specified  filename  } 

writeln*  disKfiie,  nhardsS,  nhardp:5,  nupn:5  )  ; 
for  i  :=  1  to  nhard  do  begin 

for  j  !=  1  to  nwpn  do  write<  diskfile,  crtabti,j, 11:9:1  )  ; 
writeln*  diskfile  )  ; 

for  j  s=  1  to  nwpn  do  write<  diskfile,  crtadbCi ,i , 21:9:1  )  ; 
writeln*  diskfile  )  ; 
end  ; 

uriteln<  diskfile,  npattiS  )  \ 
for  i  :=  1  to  npatt  do  begin 
for  j  :=  1  to  4  do  write(  diskfile,  ipatli,jh5  >  ; 
writeln*  diskfile  )  ; 

for  j  :=  l  to  8  do  write(  diskfile,  patt[i,jh8:l  )  ; 
write(  diskfile,  patt(i,?]s?s3,  pattti,llh?i3  )  \ 
uriteln<  diskfile  )  ; 
for  4  :=  1  to  ipatti,U  do  begin 
jr  :=>  2  X  j  ♦  9  I 

uriteln(  diskfile,  pattli,jrl:8il,  pattti,  jr  ♦  lhSsI  )  ; 
end  ; 
end  i 

close(  diskfile  )  ; 
writeln  { 

writeln*  'The  new  file  created  is  named  <  ',  fname,  *  >'  >  j 
end  |  (  procedure  outdat  ) 

MAIN  PROGRAM 

begin 
init  t 
info<  I  )  j 
if  ichc  s  8 
then  begin 
Qtwwpn  ; 
newpat  } 
end 

else  begin 
oldipo  { 
oldpat  ; 
end  } 
outdat  | 
writeln  } 

writeln*  'END  OF  PROGRAM'  >  j 

writeln  ; 

end. 


8-3-32 


{-  -  - 

{-  -  " 

{==== 
progran  aapnsn  ; 

type  strl4  =  &tring£ 143  { 

var  diskfile  :  text  ; 

fnaael,  fnaae2,  fnane3,  seed  :  strl4  ; 

crit  :  arraytl.. 112,1.. 21  of  real  ,* 
crtab  :  arraytl.. 11,1.. 6,1.. 21  of  real  ; 
pass  ;  array[1..32,1..51  of  real  ; 
patt  :  array! 1.. 12,1.. 341  of  real  ; 
tgt  :  arrayCl..il2,L.5]  of  real  ; 

acft  t  array! 1.. 44,1.. 21  of  integer  ; 
ipass,  opt  t  array! 1.. 32,1.. 21  of  integer  ; 
ipat  s  array! 1.. 12,1.. 41  of  integer  ; 
itgt  :  array! 1.. 112,1.. 31  of  integer  ; 
npx  :  array! 1 . ,323  of  integer  ; 

irepr,  iseed,  Kac ,  Iv,  nxptch,  nacft,  narea,  nbldg,  ntp,  nelt,  nflag3, 
nbard,  nhardp,  npass,  npatt,  npprcw,  nsaop,  nsaapt,  nsqr,  r.'.gps,  nwpn 
:  integer  ; 

error,  zalpba  i  real  ] 
passflag  t  boolean  ; 

(  variable  keyt 

critli,Jl  *  array  with  critical  distances  (ft) 
it  target  elwent  ntxtber  (112  sax) 
it  I  -  sin  dear  takeoff  length  (1,1  ~)  taxi  only) 

2  *  sin  dear  takcoff(taxi)  width 
crtabti,j,kl  -  crater  tabulated  data  (ft) 

it  surface  type  (hardness  code)  (II  sax) 

Jt  weapons  type  (6  sax) 

kt  crater  radii  subdivided  by  surface  type  (ft) 

1  -  if  pavet  tol  crater  size;  bldgt  near  siss  size 

2  -  if  pavet  taxiway  crater  size)  bldgt  direct 

hit  size 

error  -  level  of  statistical  significance  for  analysis 
fn Mte  -  character  variable  for  file  nmes 
hi  -  high  value  for  integer  rage  c caparison 
i,j  -  loop  counters 
ichc  -  choice  flag 

ipass!i,i)  -  supplementary  nission  data 
it  pass  Rusher  (32  sax) 
j:  I  -  pattern  nuober  flown  this  pass 
2  -  next  pass  (absolute)  this  A/C  will  fly 
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ipatli,j]  -  supplementary  pattern  data 
i:  pattern  number  (12  max) 
j:  1  -  number  o f  weapons  delivered  (i2  max) 

2  -  number  of  submunitions  per  weapon 

3  -  weapon  code  (crtab  index  number) 

4  -  pattern  shape 

8  =  general  purpose  bomb 

1  =  cbu  (rectangular) 

2  =  cbu  (elliptical) 

3  =  guided  bomb 

irepr  -  code  for  repair  priorities 

I  3  all  tol  strip  in  order  of  target  number 

1  =  easiest  tol  strip  first,  rest  in  order 

2  3  repair  only  the  easiest  tol  strip 

il  3  all  pavements  in  order  of  target  number 

II  3  all  approaches  and  easiest  tol  strip  first, 

followed  by  others  in  target  order 

12  3  all  approaches  and  only  the  easiest  tol  strip 
iseed  -  random  number  input  number 
itgtCi,j]  -  array  with  supplaentary  target  data 
i>  target  element  number  (112  max) 
j:  1  -  l=paveaent,  »=building 

2  -  hardness  code  for  target  (11  max) 

3  -  belongs  to  target  group  number 
ix  -  dummy  argument  for  procedure  call  option 
jchc  -  choice  flag 

jd, jr  -  intermediate  variables  (deflection  and  range) 

jdef  -  deflection  counter  (index  in  pattern  matrix) 

jrng  *  range  counter  (index  in  pattern  matrix) 

kac  *  aircraft  number  performing  current  pass 

lo  -  lower  value  of  integer  range  comparison 

Iv  *  number  of  taxi  surfaces  (3!-ocp  max) 

m  -  intermediate  storage  for  nhaid 

mxptch  -  number  of  runway  patches  available 

n  -  intermediate  storage  for  nhardp 

nac  -  number  of  aircraft  in  mission 

aarea  *  flagt  I  *  compute  tol  damage,  t  3  don't  compute 

nbldg  -  number  of  buildings  <W2-ncp-lv  max) 

nep  *  number  of  takeoff/landing  capable  surfaces  (3  max) 

omit  -  total  number  of  targets  <1 12  max) 

nflag3  -  I  3  no  effect,  1  *  optimize  monte  carlo  iterations  <if)2ll) 

ohard  -  total  hardness  codes  for  buildings  plus  surfaces  (11  max) 

nhardp  -  hardness  codes  for  surfaces  (nhard  max) 

epass  -  number  of  attacks/passes  on  target  (32  max) 

epatt  *  number  of  patterns  (12  max) 

npprew  -  min  taxi  width  required,  l.l  suppresses  search  for  taxiways 
npxlil  -  target  group  of  target  being  attacked  this  pass 
i:  pass  number  <32  max) 
nsamp  -  number  of  monte  carlo  iterations 

nsampt  -  ntMber  of  monte  carlo  iterations  between  intermediate  reports 

nsqr  -  crater  input  flag  <l»)  square,  1=)  round) 

otgps  -  number  of  distinct  target  groups 

aval  -  duamy  argument  for  integer  range  comparisons 
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ovals  -  intemediate  variable 
nwpn  -  nunber  of  different  weapon  types  ( 6  nax) 
optli f jl  -  optional  second  pass  data 
i:  pass  mnber  (32  nax) 
js  1  -  8  =  first  pass  for  this  A/C 
1  =  second  pass  for  this  A/C 
2  -  A/C  nuaber  flying  this  pass 
pass[i,j]  -  nission  data 

i :  pass  nunber  (32  nax) 
j:  1  -  aiapoint  x-coord  (ft) 

2  -  aiapoint  y-coord  (ft) 

3  -  axis  of  attach  (deg) 

4  -  probability  A/C  reaches  target 

5  -  probability  A/C  survives  to  reattach 
pattli,j]  -  pattern  data 

i:  pattern  nunber  (12  aax) 
jl  1  -  aiaing  range  error  (ft) 

2  -  aiaing  deflection  error  (ft) 

3  -  ballistic  range  error  (ft) 

4  -  ballistic  deflection  error  (ft) 

5  -  cbu  half  pattern  length  (ft) 
d  -  cbu  half  pattern  width  (ft) 

7  -  cbu  half  void  length  (ft) 

8  -  cbu  half  void  width  (ft) 

?  -  fuze  reliability 

II  -  tumble  t  reliability 

rat  *  average  nuaber  of  attacks  per  airplane  (2.1  aax) 
tgUi,Jl  -  primary  target  data 

it  target  eleecat  nuaber  (112  aax) 
j:  1  -  x-coord  (ft) 

2  -  y-coord  (ft) 

3  -  main  axis  (deg) 

4  -  length  (ft) 

3  -  width  (ft) 

wait  -  temporary  storage  variable 
{alpha  -  standard  normal  statistic 


procedure  rtalread(  var  r  i  real  )  | 

(  procedure  to  read  a  real  value  with  error  checking.  ) 
begin 

repeat  (I!-)  r*ad)n(  r  )  (lie)  until  (  ioresult  =  I  )  j 
writeln  ) 

end  j  (  procedure  realread  ) 


procedure  intread(  var  i  :  integer  >  ; 

(  procedure  to  read  an  integer  vrlue  with  error  checking.  ) 
begin 

repeat  (I1-)  read)n<  i  )  (tie)  until  (  ioresult  *  C  )  \ 
writeln  ; 

end  {  (  procedure  intread  ) 


procedure  pause  ; 

{  delays  crt  output  until  a  key  is  pressed  ) 
begin 
write! n  ; 

writet  '  press  any  key  to  continue 

repeat  until  keypressed  ; 
drscr  j 

end  j  (  procedure  pause  } 


function  chkgoodt  nval,  hi,  1o  :  integer  )  :  boolean  ; 

{  this  function  returns  false  when  nval  is  out  of  range  } 
begin 

if  <  nval  (  lo  )  or  <  nval  )  hi) 
then  begin 
writeln  ; 

writelnt  'Value  wist  be  between  ',lo,'  and  ',hi  ) 
writeln  ; 
chkgood  i*  false  j 
end 

else  chkgood  true  i 
end  t  t  function  chkgood  ) 


function  probchkt  prob  :  real  )  j  boolean  j 

(  this  function  returns  false  when  prob  is  out  of  range  (  I  to  1  >  ) 

begin 

if  (  prob  <  I  )  or  <  prob  >  1  ) 
then  begin 
writeln  ; 

writelnt  'Enter  a  value  between  I  and  1/  )  ; 
writeln  j 
probe hk  is  false  | 
end 

else  probchk  :a  true  | 
eed  ;  (  function  probchk  5 


procedure  queryt  var  ichci  integer )  s 
(  this  procedure  returns  response  to  a  yes-no  Question 
ichc  set  to  I  for  yes,  and  l  for  no  or  (  return  ).  ) 

var  us  t  char  j 
begin 

writet  '  (y/n)  *=*>')} 

repeat  readlnt  us )  util  <  upcaset  us  )  in  t  T,'N'  )  )  or  eolo  ; 
writeln  | 

if  eoln  or  (  upcaret  us  )  =  Tf'  > 
thu  ichc  j=  1 
else  ichc  ta  I  ; 
end  :  (  orOcedure  ouerv  ) 


procedure  procsss-f i  1  e<  var  fnane  :  str  14;  which  :  stri4  )  ; 

{  initial  processing  of  file  naae  entered  by  user  ) 
var  dot,  goodnane  :  boolean  ; 
p,  size,  dotpos  :  integer  ; 

begin 
ctrscr  j 
writeln  ; 

writelnt  'For  the  following  entries,  allowable  filenaaes  itay  contain  only  ', 
'capital  letters'  >  j 

writelnt  'and  nunbvrs.  If  you  enter  lower  case  letters,  they  will  be  ', 
'treated  as  if  they'  )  ; 

writelnt  'are  upper  case.  The  foroat  mist  be  as  follows:'  )  ; 
writeln  ; 

writelnt  '  OsXOOOOOOt.XXX'  )  ; 

writeln  ; 

writelnt  '  where  D:  is  an  optional  drive  specifier,'  )  ; 
writelnt  '  X  is  a  digit  <  I  -  9  )  or  a  letter  <  A  -  Z  >,'  >  ; 

writelnt  '  XXXXXXXX  is  a  filenane  I  to  8  characters  long,  and'  )  ; 

writelnt  '  ,XXT  is  an  optimal  1  to  3  character  file  type', 

'  (  not  m  )  j 

writeln  ; 

writelnt  'Eiasples  of  valid  filcnsies:  MSN  NSN.1  AAFHOO.DTA  ', 
'B;l(Wi84,AAP'  )  ; 

writeln  j 
writeln  ; 

writelnt  'H  an  (listing  file  you  need  to  use  contains  characters  not 
'compatible  with'  )  ; 

writelnt  'the  abcwe  format,  you  will  need  to  A60&T  this  program  by 
'pressing  coatrol-C,'  )  ; 

writelnt  'ad  then  rename  the  file  to  wake  it  compatible.'  )  ; 

pause  j 

repeat 

goodoww  true  | 
dot  :»  false  ; 
repeat 
writeln  j 

writet  'Enter  name  for  the  ',  which,  '  File  =t>  '  )  ; 
readlnt  lease  )  ; 
writeln  ; 

for  p  :*  I  to  14  do  fnaselp)  :*  upcasef  fnawtpl  I  ; 
repeat  (  delete  blanks  froa  ) 

p  :=  post  *  ',  lease  1  |  (  fileaase  > 

if  p  O  I  thee  deletet  fnase,  p,  t  )  ; 
until  p  *  |  j 

until  tease  0  "  ;  {  trap  for  carriage  return/blanl!  filename) 

dotpos  :=  post  fnase  )  j  t  filetype  can  o-ily  be  3  characters  long  } 
if  dotpos  <>  I  then  deletet  fnase,  dotpos  M,  14  )  ; 
size  :=  lengtht  fnase  )  ; 


if  (  p  =  2  > 
then  begin 


I H  : 

>  ■  «  .  ■'  .•  •  i  , 


•  ■.  .  Vi'  . 


-■ 

■}(  ■  ■ 


v  ■■ 


1.1  ■  .  V  i  .*'■ 


■«. '  i:  \  ■  \  ■ 


if  (  not  <  dotpos  in  1  8,  4. .11  ]  )  ) 
or 

(  not  !  foaaeUl  io  C  A'..'Z'  1  )  > 
or 

<  size  <  3  ) 
or 

!  (  dotpos  =  8  >  and  !  size  >  IB  )  ) 
then 

goodnaae  :=  false  ; 

if  goodnaae  then  for  p  :=•  f  tS  size  do  begin 
if  not  !  fnanatplin  [  T./9',  'A'.. '2',  V  1  ) 
then  goodnaoe  s=  false  ; 

if  dot  and  <  fnaaelpl  *  V  >  then  goodnane  :=  false  j 
if  fnaaelpl  *  V  then  dot  r*  troe  j 
end  5 
end 

else  begin 

if  (  not  <  dotpos  in  1  I,  2. .9  1  >  ) 
or 

(  size  <  I  ) 
or 

(  <  dotpos  *  I  )  and  <  size  >  8  >  > 
then 

goods  a^ae  s*  false  j 

if  gcodsaoe  thin  for  p  i*  1  to  length*  fnane  >  do  begin 
if  not  <  fnaaelpl  in  1  'I'..'*',  'A\.'Z',  V  1  > 

then  goodnane  s*  false  { 

if  dot  and  <  fnaaelpl  »  V  )  then  goodnaae  i»  false  \ 
if  faaMlp]  3  V  then  dot  t»  true  : 
end  ; 
end  ) 

if  pos(  '.BAK',  fata:  )  <>  I  then  begin 
goodniae  i*  false  j 

writels!  'You  nay  not  ester  a  filenaoe  with  the  filetype  \BAK’  )  | 
writels  ; 

writels!  'To  use  the  backup  .BAK  file,  renaae  it  before  executing 
'this  prograa.'  )  j 

writels  ) 
end  | 

writeln  j 
if  goodnaae 
then  begin 

write!  'Confira  the  correct  filenaoe  is  <  ',  fnane,  '  >  ?'  >  i 
query!  p  )  } 

if  p  3  1  then  goodnaae  t=  false  | 
end 
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else  begin 

uritelnf  'Invalid  filenaae  <  ', fnane,  '  >'  )  \ 
uriteln  ; 

uritelnf  'Please  try  again,  or  press  control -C  to  ABORT  this 
'prograa.'  )  ] 

end  ; 

until  goodttane  ; 

end  ;  (  procedure  processfile  )  - 

. ===== — ======} 

■function  filexistsf  inane  :  strlf  )  :  boolean  5 
<  Checks  to  see  it  file  fnaao  exists  on  disk.  Returns  true  it  it  does.  } 
var  exists  :  boolean  ; 
begin 

assignf  disk-file,  fnane  )  ; 

{$!-}  resetf  disk-file )  ;  {41+  this  checks  if  the  file  exists) 
exists  :=  ioresult  =  I  5 
if  not  exists  then  begin 

uritelnf  'File  <  fnane,  '  )  does  not  exist.  Be  sure  to  specify  the  ', 
'correct  drive  '  )  5 

uritelnf  'and  the  correct  file  nane.'  )  | 
uriteln  ; . 

uritelnf  '  To  ABORT  this  prograa,  press  control-C.'  )  5 

pause  ; 
end  | 

filexists  is  exists  ; 
end  ;  '  function  filexists  ) 

procedure  infof  ix  1  integer  )  ; 

{  This  procedure  declutters  the  nain  prograa  by  placing  sane  text  in  a 
central  location.  ) 
begin 

case  ix  of 

1  3  begin 
clrscr  j 
uriteln  $ 

uritelnf  '  <<<AAPHSN  >>>')} 

uriteln  j 
uriteln  | 

uriteln<  'This  prograa  uses  predefined  target  and  ueapoos/pat tern  ', 
'files  to  generate  the'  )  ; 

uriteln  | 

uritelnf  'input  file  for  the  tuin  prograa  in  this  series  —  AAPHQO.  ', 
'First,  you  uill  be'  )  } 

uriteln  | 

uritelnf  'prcepted  for  the  naaes  of  the  2  files  this  prograa  needs  ', 
'to  read.  Next,  you'  )  \ 

uriteln  | 

uritelnf  'aust  select  the  naae  for  the  file  this  prograa  util  ', 
'generate.  Then  you  uill'  )  \ 

uriteln  5 
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writelnt  'select  various  conbinations  of  the  input  tiles  to  build 
'your  mission  package.'  )  ; 

writeln  ; 

writelnt  'This  program  will  accept  those  inputs  and  produce  the  ', 
'input  file  formatted'  >  ; 

writeln  ; 

writelnt  'properly  for  input  to  AAPHQD.'  )  j 
writeln  ; 
pause  } 
end  ; 


2  :  begin 
drscr  ; 
writeln 
writelnt 
writeln 
writelnt 
writelnt 
writelnt 
writelnt 
writelnt 
writelnt 
writelnt 
writelnt 
writelnt 
writelnt 
writeln 
writelnt 

writelnt 

writelnt 

writelnt 

writeln 


'Crater  table  format  is:' )  ; 


'target 
'hardness'  ) 
'  1 
'  ! 

'  2 
'  2 
'  3 

'  3 
/ 

e 

i 


wpn  2 


...'  ) 


crater  sizel  crater  sizel  crater  size!...'  )  ; 
crater  size2  crater  size2  crater  size2...'  >  ; 

>  ! 

>  i 
'  )  1 
'  >  1 
'>  1 
'  >  1 


1 

'Crater  sizel  is  the  size  for  the  weapon  against  TOL  ', 
'surfaces  if  the  hardness'  )  ; 

'code  is  for  pavements,  or  near  niss  crater  size  ', 

'for  buildings,  Crater  size?'  >  ; 

'is  the  size  for  the  weapon  against  taxiways  ', 

'if  the  hardness  code  is  for'  )  j 
'pavements,  or  direct  hits  against  buildings.'  )  ] 


pause  | 
writeln 
end  i 


3  t  begin 
drier  | 
writeln  t 

writelnt  'Partial  recapj  confirm  the  following  are  correct,  If  ', 
'there  are  errors,'  >  5 

writelnt  'you  may  reenter  the  information  again.'  )  j 
writeln  j 
end  i 
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4  :  begin 

writelnt  'The  flag  to  suppress  execution  of  AAPMQD  routine 
'0ULAP  is  set,  nomally'  )  ; 

writelnt  'indicating  at  least  one  pavenent  wider  than  899.  This', 
'routine  searches  for'  )  | 

writelnt  'overlapping  areas  of  craters,  and  would  take  excessive  ', 
'execution  tine  for'  )  | 

writelnt  'the  large  width  targets.  Note  that  the  search  is  ', 
'suppressed  for  ALL  targets'  )  *, 

writelnt  'with  this  flag  set.  However,  you  nay  choose  to  override  ', 
'this  flag  and  force'  >  5 

writelnt  'AAPNGO  to  execute  routine  OULAP.'  )  ; 

writeln  ; 
end  ; 

5  :  begin 

writelnt  'The  flag  to  suppress  execution  of  AAPMOO  routine  OULAP  ', 
'is  not  set,  noraally'  )  ; 

writelnt  'indicating  no  targets  wider  than  899.  This  routine  ', 
'searches  for  overlapping'  )  ; 

writelnt  'areas  of  craters  and  takes  additional  execution  tine,  ', 
'especially  for  larger'  >  j 

writelnt  'width  targets.  You  nay  choose  to  override  this  flag  ', 
'and  force  AARtOO  to'  )  ; 

writelnt  'suppress  execution  of  routine  OWLAP,  thus  saving  ', 
'execution  tilt.  Note  that'  )  j 

writelnt  'the  search  will  be  suppressed  for  ALL  targets  if  you  ', 
'choose  to  set  this  flag.'  )  ; 

writeln  j 
end  ; 

end  ;  t  case  } 
end  |  (  procedure  info  ) 


procedure  tgtiatrix  ; 

(  print  target  tatrix  data  ) 
var  i,  J  1  integer  i 
begin 
clrscr  } 

for  i  **  1  to  nelt  do  begin 
if  i  aod  M  <*  t  then  begin 
writeln  ; 

writelnt  'T6T  X  Y  AXIS  TGT  HARD', 

'  TGT  CHIT  DISTANCES'  >  } 

writelnt  '1  COORD  COORD  (DEG)  IB«TH  WIDTH  TYPE  CODE', 

'  GROUP  LENGTH  WIDTH'  )  } 

writelnt  ' —  — —  .  .  — —  - —  — -  — ' s 

end  | 

writet  i:3  )  ; 

for  j  p  I  to  5  do  writet  tgUi,Jh8:l  )  1 
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if  itgtli,il  =  8 
then  unite!  '  BLDG'  ) 
else  if  critti , U  <  1 
then  write!  '  THY'  ) 

else  write!  '  TIL'  )  5 

«rite<  itgtii,2h5,  itgt!i,31:d  )  ; 
if  itgtli,ll  =  1  then  write!  critli, 11:18:1,  critli, 21:9:1 )  ; 
uriteln  ; 

if  i  nod  18  -  I  then  pause  ; 
end  j 

if  i  nod  18  O  8  then  pause  ; 
end  ;  <  procedure  tgtnatrix  1 


■  19 


procedure  upraatrix  5  {  display  weapons  natrix  on  screen  1 
var  i,  j  :  integer  5 
nsg  :  stringt223  ; 

procedure  writehaader  ;  (  header  for  weapons  natrix  1 

begin. 

write!  'Weapon  I  !  j  =  1'  >  } 

for  j  :=  2  to  nwpn  do  write!  '  j  >  j 

uriteln  5 

end  {  (  procedure  writeheader  1 
begin  (  quwatrix  1 

info!  2  )  j  if  nhard  )  8 

then  #59:*'  PRESS  ANY  KEY 
else  nsg  '  '  j 

writeheader  j 

uriteln!  'Hardness  !  Radius  of  Circular  Crater'  )  | 
uriteln!  '  Code  .  !'  )  j 
for  i  i=  1  to  nhard  do  begin 
unite!  asgt  <  2 1  i  >  -  i  1,'  i:2,  '  K>*1  !' )  1 

for  j  s=  1  to  nupn  do  write!  2.8  /  sqrt!  pi  )  X  crtabli, ,1,11:9:1  >  1 
uriteln  | 

write!  asgt  2  X  i  J,'  K*2  !'  )  l 

for  j  :a  1  to  nwpn  do  write!  2.8  /  sort!  pi  )  X  crtabli, j, 21:9:1  >  ; 
uriteln  | 

if  i  a  9  then  repeat  until  keypressed  { 
end  1 

if  i  )  8  then  writeheader  ; 
pause  | 

eod  )  t  procedure  upstair ix  1 
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procedure  pattnatrix  j  {  Display  the  pattern  natrix  on  screen.  } 
var  i,  j  i  integer  5 
begin 

for  i  i=  1  to  npatt  do  begin 
writeln  j 

write*  'Pattern  I',  i,  '  has ipatti.l],  '  '  )  j 
case  ipat(i,4]  of 
I  t  begin 

write*  'general  purpose  bab' )  ; 
if  ipaMi,U  0  1  then  write*  's'  )  ; 
eud  ; 

1  :  write*  'C8U  (  rectangular  footprint  )  with  ',  ipat[i,21, 

'  subnunitions  each'  )  5 

2  1  write*  'CSU  (  elliptical  footprint  )  with  ',  ipat(i,2), 

'  sub-ounitions  each'  )  5 

3  j  begin 

write*  'guided  b<ab'  )  ; 
if  ipatU|U  0  I  then  write*  's'  )  j 
end  { 

end  j  *  case  J 
writeln*  | 

uriteln*  'Crater  Table  Index!  J  »  ',  ipat[i,31,  NOTEs  Error 
'values  shown  below  are  SEP  and  DEP,'  >  ; 

writeln  ( 
if  ipat[i,43  )  2 

then  write*  '  Optiwal  Optiaal  Near-wiss 

'Near-ftiss  ' ) 

else  write*  '  Delivery  Delivery  Ballistic 

'Ballistic  '  )  ; 

if  ipatli,41  in  l  I,  2  1 
then  writeln*  '  Cannister  '  > 
else  writeln*  '  Weapon'  >  \ 
writeln*  'Binge  Error  Deflection  Error  Range  Error 
'Deflection  Error  Reliability'  )  ; 
writeln*  ' - *—  — * .  - — . -  ', 

write*  I.67S  I  pattti,lli?sl  )  ; 

for  j  i*  2  to  4  do  write*  1.475  X  pattti,jlil73l  )  ( 

writeln*  pattti,9M7:3  >  ) 

writeln  t 

if  ipatii^l  in  t  I,  2 1  then  begin 
writeln*  '  Footprint  Footprint  Void 

'Void  Bcablet'  )  ; 

writeln*  '  length  Width  Length 

'Width  Reliability'  )  ; 


writeln  ; 

uriteln<  'Stick  Impact  Point  Data:  <  Distance  iron  mean  impact 
'point.  )'  >  j 

writeln  ; 

writet  '  Weapon  »  t'  >  j 

tor  j  I*  2  to  ipatti,U  do  aritef  jtd )  ; 

uriteln  ; 

aritet  '  - '  )  j 

for  j  f  2  to  ipatti,U  doaritet  '  '  )  5 

uriteln  ; 

aritet  '  Range'  )  | 

for  j  i*  I  to  ipatCi.U  do  aritef  pattt  i,  2  X  j  ♦  9  hdtl )  ; 
aritelo; 

aritef  '  Offset'  )  ; 

for  j  i«  1  to  ipat(i,U  doaritet  pattt  i,  2  X  j  Ml  1:6:1  >  ; 
aritelo  j 
end  5 
pause  ) 
end  { 

ead  j  t  procedure  pattaatrii  J 

(  . . .  .■■M.-.awfliTM- . aaa  a . 

procedure  passiofof  i  :  integer  )  j  (  write  pass  iofonuiion  ) 
begin 
aritelo  ; 

aritelot  'Pass  outer  ',i,'  of  ',  npass,  '  total;  float  by  A/C  number 
optti,21,  ':'  }  ; 

aritelo  ; 

end  ;  <  procedure  pass info  ) 


0 


y«, 
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procedure  passplan  ;  <  display  aircraft  and  pass  sequence  ) 
var  i,  j,  k  :  integer  ; 


procedure  nonet  n  :  integer  )  \ 
var  a  i  integer  ; 
begin 

for  a  :=  i  to  2  do  if  acftln,al  =  *1 
then  uritet  '  none'  ) 

else  uritet  acf ttnfa3: 12t  '  * >  5 
end  ;  <  procedure  none  ) 

begin  t  passplan  ) 

uritet  'AIRCRAFT  1ST  PASS  2ND  PASS'  )  j 
if  nacft  >  14  then  uritet'  AIRCRAFT 

uriteln  j 

uritet  ' . ~ . — '  >  | 

if  nacft  >  id  then  uritet'  - 

uriteln  j 

for  i  s=  1  to  nacft  do  begin 
for  j  S3  1  to  2  do  acftlijj]  s=  -1  j 
for  j  »=  1  to  npass  do 
if  optCj ,21  a  i  then 
if  acftCi.l]  3-1 
then  acftti.U  s=  j 
else  if  acfUi.ll  <  j 
then  acft(i|2)  s*  J 
else  begin 

acft(i|21  S3  acft(i,U  j 
acftU,U  $=j  ) 

end  t 

end  i 

for  i  S3  1  to  14  do 
if  i  <»  nacft  then  begin 
uritet  isS,  '  '  )  | 
nonet  i  )  j 
k  s*  i  ♦  14  | 
if  k  <3  nacft  thee  begin 
uritet  k:17,  '  '  )  \ 
nonet  k  )  ; 
end  j 
uriteln  5 
end  ; 

end  ;  (  procedure  passplan  ) 


procedure  review  j  !  see  if  user  wants  tc  review  database  natnces  > 
var  ichc  :  integer  ; 
begin 
writeln  ; 

write!  ‘'Mould  you  like  to  review  the  target  aatrix?'  >  ; 

query!  ichc  )  ; 

if  ichc  -  8  then  tgtnatrix  ; 

writeln  ; 

write(  'Mould  you  like  to  review  the  weapons  tutrix?'  )  ; 

query!  ichc  )  ; 

if  ichc  s  I  then  wpmatrix  ; 

writeln  ; 

write!  'Mould  you  like  to  review  the  pattern  tutrix?'  )  j 
query!  ichc  )  ; 
drscr  ; 

if  ichc  =  I  then  pattnatrix  j 
if  passflag  then  begin 
writeln  ; 

write!  'Mould  you  like  to  review  the  flight  line-up  by  aircraft  ' 
'ninber?'  )  | 
query!  ichc  )  j 
clrscr  j 

if  ichc  -  I  then  begin 
writeln  ; 
passplan  \ 
pause  ; 
end  | 
end  { 

end  ;  !  procedure  review  ) 


procedure  init  ( 

!  This  procedure  loads  in  pre-ex i si ting  target  and  weapoo/pattero  files,  ) 
var  aborting,  goodfile  i  boolean  | 
i,  ichc,  j,  a,  n  :  integer  | 

begin 

abort* *g  t*  false  | 

repeat  processfile!  fnaeel,  'Target'  )  until  filexists!  fnaael  )  { 
repeat  processfile!  fnwie2,  'Meapon/Pattem'  )  until  filexists!  fna«e2 )  \ 
repeat 

processfile!  fn«»3,  'New  Output'  >  ; 
assign!  diskfile,  fnane3  )  ; 

!ll->  reset!  diskfile  )  j  «i«  see  if  file  already  exists  ) 
goodfile  t=  ioresult  0  I  j  (  want  the  file  not  to  exist  ) 
if  sot  goodfile  thee  begin 

write!  'File  !  fnase3,  '  )  already  exists.  Erase?'  )  ; 
query!  ichc  )  ; 
if  ichc  =  |  then  begin 

write!  'Are  you  SORE  you  want  to  erase  file  !  ',fna«3,  '  )  ?'  )  j 

query!  ichc  )  j 

goodfile  t=  ichc  3  I  j 

if  goodfile  then  erase!  diskfile  )  } 


end  ; 

until  goodfile  ; 
write) it  ; 

writeln!  HEADING  INPUT  FILES../); 
write) n  ; 

assign!  diskfile,  inane)  )  ;  tread  in  target  tile) 
reset!  diskfile  )  ; 

read!  diskfile,  nelt,  ntgps,  npprcw,  narea  )  ; 
for  i  :=  1  to  nelt  do  begin 
for  j  1=  1  to  5  do  read!  diskfile,  tgt!i,jl  )  ; 
for  j  :=  1  to  3  do  read!  diskfile,  itgtti,jl  )  ; 
if  itgtti,!!  =  1  then  read!  diskfile,  crit!i,IJ,  critli,21  )  ; 
end  ; 

read!  diskfile,  ncp,  )v  )  ; 
read!  diskfile,  nhard,  nhardp  )  ; 
read!  diskfile,  axptch,  irepr  )  ; 
dose!  diskfile  >  ; 

assign!  diskfi!et  fnane2  )  ;  !  read  in  weapon/pattern  file  ) 
reset!  diskfile  )  ; 
read!  diskfile,  n,  n,  nwpn  )  ; 
if  n  O  nhard  then  begin 

write!  'Discrepancy  in  the  total  nuaber  of  hardness  levels.  You 
'defined  ',  nhard,'  level'  >  ; 
if  nhard  O  l  then  write!  's'  )  ; 
writeln!  '  for'  )  ; 

write!  'targets,  but  crater  sizes  in  tarns  of  ',  a,  '  level'  )  ; 
if  n  <>  t  then  write!  's'  )  ; 
writeln!  ; 
writeln  ; 
abortnsg  true  ; 

nhard  s*  n  j 
end  | 

if  n  0  nhardp  then  begin 

write!  'Discrepancy  in  paveaent  hardness  levels.  You  defined  ',  nhardp, 
'  level'  )  ; 

if  nhardp  0  i  then  write!  's'  )  ; 
writeln!  '  for'  )  ; 

write!  'payments,  but  payment  crater  sizes  io  terns  of  ',  a,'  level'  > 
if  n  0  I  then  write!  's'  )  ; 
writeln!  '.'  )  ; 
writeln  ; 
abort*  sg  t=»  true  ; 
nhardp  s=  o  ; 
end  | 

for  i  t=  l  to  nhard  do  begin 
for  j  i=»  I  to  nwpn  do  read!  diskfile,  crtabCi , j ,11  )  ; 
for  j  :=  l  to  wipe  do  read!  diskfile,  crtabti,j,2I  )  ; 


read!  diskfile,  npatt  )  ; 

•for  i  s=  1  to  npatt  do  begin 
for  j  :=  1  to  4  do  read!  diskfile,  ipatli,j3  )  j 
for  j  :=  i  to  il  do  read<  diskfile,  pattii,jl  )  ; 
for  j  :=  11  to  2  K  ipatti,U  ♦  18  do  read<  diskfile,  pattli,j3  )  j 
end  ; 

closet  diskfile  )  ; 
if  abortnsg  then  begin 

writeln!  'You  nay  have  to  correct  before  proceeding.  To  ABORT,  press 
'control-C.'  )  j 

pause  ; 
end  j 

d  :  {  procedure  init  ) 


procedure  mission  ; 

{  This  procedure  collects  input  options.  } 
var  badval,  goodval  :  boolean  ; 

correct,  i,  ichc,  j,  nac,  p  :  integer  ; 
rat  s  real  j 

begin 
writeln  ; 

passflag  :=  false  ;  {  suppress  pass  review  info  } 
review  ; 
uriteln  ; 

writeln!  'Now  you  will  build  the  nission  package  which  AAPNSN  will  use 
'to  generate  the'  )  5 
writeln!  'AAPHQO  input  file.'  )  ; 
writeln  j 
bacKval  •.=  false  ; 
repeat 
writeln  j 
if  narea  =  1 
then  info!  4  ) 
else  info!  5  )  j 

•write!  'Do  you  want  to  change  this  flag?'  )  ; 
query!  ichc  )  ; 
clrscr  1 

if  ichc  =  8  then  repeat 
narea  -1  1 
writeln  | 

writeln!  'Options  for  setting  the  (JAAP  flagi'  >  { 
writeln  | 

writeln!  '  It  Enable  execution  of  routine  OVIAP.'  )  1 

writeln!  '  h  Suppress  execution  of  routine  OYtAP.'  ) 

write!  'Enter  choice  =>)  '  )  \ 
intread!  narea  )  ; 
clrscr  | 

until  narea  in  t  I..I  ]  : 


Vi 


uritet  'Do  you  want  to  specify  your  own  random  number  seed?'  )  ; 
queryt  ichc  >  5 
if  ichc  =  8 
then  repeat 

write<  'Enter  seed  =>  '  )  5 
readlnt  seed  )  ; 

repeat  t  delete  leading  blanks  from  seed  ) 

p  s=  post  '  ',  seed  >  ; 
if  p  -  1  then  deletet  seed,  p,  l  >  ] 
until  p  0  i  } 

repeat  <  delete  trailing  blanks  from  seed  } 

p  :=  post  '  ' ,  seed  )  ; 
if  p  O  8  then  deletet  seed,  p,  1  )  ; 
until  p  =  8  i 

uritet  'Confirm  seed  =  ',  seed  )  i 
queryt  ichc  )  ; 
until  ichc  3  I 
else  seed  s=  '987454567'  ; 
uriteln  ; 

uritet  'Enter  the  desired  total  number  of  Nonte  Carlo  samples  =0  '  )  j 
nsamp  :=  288  ;  <  default  } 
intreadt  nsamp  )  j 
uriteln  ; 

writelnt  'Enter  the  desired  interval  between  intermediate  reports  for 
'AAPNOD  output.'  )  | 

uritet  't  Enter  '28*  for  a  report  every  21  Monte  Carlo  iterations. 
'»>')} 

nsampt  t=  218  ;  (  default  ) 
intreadt  nsampt  )  ; 
uriteln  | 
of 1 ag3  s=  I  ; 
if  nsamp  )  288  then  begin 

uritet  'Do  you  want  AAfflOD  to  optimize  its  sampling  procedures?'  )  | 
queryt  ichc  )  ; 

if  ichc  3  8  then  oflag3  1=  l  ; 
uriteln  ; 
end  i 
clrscr  j 
uriteln  | 
repeat 

writelnt  'Hhat  is  the  desired  level  of  significance  for  this  analysis  ?'  >| 
uritet  '<  1  -  confidence  level  )  <=*>  '  )  j 
error  i=  8.85  j  t  default  ) 
realreadt  error  )  j 
until  probchkt  error  )  j 
uriteln  } 

writelnt  'Mhat  is  the  *2*  or  Standard  Normal  test  statistic  for  your  ', 

'level  of'  )  } 

writelnt  'significance  ?  Typical  values:'  >  j 
uriteln  j 

writelnt'  Confidence  level:  1.91  8.95  8.975  8.99 

'8.995  8.999'  )  ♦, 
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uritelnt  ' 

'8.885 

Significance; 
8.881'  )  ; 

8.18 

8.85 

8.825 

8.81 

uritelnt  ' 

2  values 

1.282 

1.445 

1.948 

2.324 

'2.574  3.898'  >  } 

uriteln  5 

writef  'Enter  test  statistic  =>  '  )  j 
zalpha  !=  1.445  }  {  default  5 
real readC  zalpha  )  ; 
infot  3  )  ; 

aritet  'AAPMOD  will  '  >  ; 
if  narea  =  1 

then  uritet  'suppress  '  ) 
else  uritet  'enable  '  )  ; 
uritelnt  'execution  of  routine  OULAP'  )  j 
uriteln  j 

uritelnt  'Seed  =  ',  seed,  '  <  Default  =  987454547  )'  )  i 
uriteln  ; 

uritelnt  'Nunber  of  Monte  Carlo  saaples  5  nsanp  )  ; 
uriteln  ; 

if  nsanp  )  288  then  begin 
uritet  'AAPMOD  will  '  )  j 
if  nflag3  =  8  then  uritet  'not  '  )  ; 
uriteint  'optimize  its  sanpling  procedures.'  )  ; 
uriteln  ; 
end  ; 

uritelnt  'Report  interval  =  nsanpt  )  \ 
uriteln  | 

uritelnt  'Level  of  significance  a  ',  error s3:<  )  ; 
uriteln  j 

uritelnt  'Standard  Noma  1  test  statistic  c  ',  zalpha:3t4  )  5 
uriteln  ; 

uritet  'Are  the  above  correct?'  >  } 
queryf  correct  )  } 
clrscr  | 
uriteln  ; 

if  correct  a  1  then  begin 
uritelnt  'Reenter  the  follouing;  '  )  } 
uriteln  | 
end 

until  correct  =  I  j 
repeat 

badeal  1=  false  { 

uritelnt  'Enter  the  following)'  >  j 
npass  )»  -I  { 
repeat 
uriteln  ; 

uritet  'Nuaber  of  passes  over  the  target  ccnplex  <  *ax  32  >  =)  '  > 
intreadt  npass  )  ; 
until  chhgoodt  opass,  32,  1  )  5 
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nac  :=  B  } 
repeat 

uriteln  ; 

writelnt  'Each  aircraft  say.  reattack  one  tine.'  )  ; 
writeln  j 

writet  'Nunber  of  aircraft  participating  in  the  attack  =)  '  )  } 
intreadt  nac  )  ; 
nac ft  s=  nac  ; 
write] n  ; 

if  nac  <  1  (  trap  for  I  or  negative  acft  > 
then  rat  i=  3 
else  rat  s=  npass  /  nac  ; 

if  rat  >  2  then  writelnt  'Insufficient  A/C  to  acconplish  attack.'  )  ; 
until  <  rat  <=  2  >  and  chkgoodt  nac,  npass,  (  npass  ♦  1  )  div  2  )  j 
kac  :=  I  j  {  aircraft  count  > 
for  i  !«  1  to  npass  do  begin  {  initialize  arrays  ) 
for  j  :=  1  to  4  do  passU  „jl  i=  B  j 
pass! i ,51  s=  1  j  <  reattack  probability  } 
for  j  f  I  to  2  do  begin 
opt(i,jl  :=  B  ] 
ipas$U,j]  5=  B  ; 
end  ; 
end  ; 

passflag  :®  true  j  t  enable  review  of  pass  info  ) 
i  i=  1  j 

repeat  (  i  •  loop  1 
cfrscr  ? 
uriteln  ; 

writet  'Pass  nunber  ',i,'  of  npass,  '  total?  '  >  j 
if  opt(i,l]  a  I  then  begin  (  1st  pass  for  acft  ) 
p  f  I  \  (  p  will  count  I  of  passes  not  yet  assigned  to  acft  ) 
for  j  j=  t  to  npass  do  if  optlj,21  a  i  then  p  p  *  !  ; 
if  <  aac  -  kac  )  *  2  <  p  then  begin  (  Rot  enough  acft  ) 
badvat  f  true  } 
writeln 
writeln  ; 

writelnt  'ERROR;  Insufficient  aiuraft  available.'  )  ; 
writeln  j 

writelnt  '  Total  nuiber  of  aircraft  tor  this  sissioo  a 

nac  )  ; 

writelnt  '  Current  amber  of  aircraft  assigned  to 

'passes  °  kac  )  j 

writeln  } 

writelnt  '  Nusber  of  passes  without  aircraft  assigned  3  ', 

P>  1 

writelnt  '  Umber  of  aircraft  available  for  unassigned  ', 

'passes  =  ' ,  nac  -  kac  )  \ 

writeln  ; 

writelnt  'To  correct  this  error  condition,  you  will  have  to  ', 
're-enter  ill  pass  data.'  >  5 

writelnt  'You  say  ABORT  the  prograa  by  pressing  controK.'  )  ? 
writeln  5 
writeln  ; 


B  -  4  -  28 


write?  'Hoy Id  you  like  to  review  the  flight  line-up  by  aircraft  ', 
'niaber?'  )  ; 
query?  ichc  >  5 
drscr  ; 

if  ichc  -  8  then  begin 
uriteln  ; 

writeln?  'flight  line-up  that  caused  the  error  condition:'  )  ; 
writeln  ; 
passpfan  ; 
pause  ; 
end-; 
writeln  ; 
end  ; 

kac  :=  kac  +  l  5  {  need  new  acft  ) 
end  ; 

if  not  ba&al  then  begin  ?  continue  loop  } 
repeat 

if  optti.n  =  I  then  optti,2J  :=  kac  ;  {  assign  acft  to  this  pass  } 

writeln?  'flown  by  A/C  nunber  ',  opt[i,21,  ':'  )  ; 

writeln  ; 

review  ; 

passinfo?  i  )  5 

write?  'Enter  element  nunber  of  priaary  target  =0  '  )  ; 
intread?  npxlil  )  ; 
writeln  ; 

write?  'Preplanned  ainpoint  —  x-coord  =)  '  )  ; 
real  read?  passU,  U  )  ; 
writeln  5 

write?  'Preplanned  aiapoint  --  y-coord  «>  '  )  ; 
real  read?  pass? i, 21  )  ; 
writeln  ; 

write?  'Attack  direction  ?  referenced  CEH  frai  *x-axis )  —)  '  )  ; 
real  read?  passU  ,31  )  ; 

repeat 

writeln  ; 

writeln?  'Next  you  nust  enter  the  attack  pattern  ?  fro»  the  ', 
'pattern  natrix  >  this'  >  ; 

write?  'aircraft  will  fly.  Do  you  want  to  review  the  pattern  ', 
'natrix?'  )  j 
query?  ichc  )  j 
drscr  ; 

if  ichc  »  (  then  pattnatrix  ; 
passinfo?  i  )  ; 

write?  'Attack  pattern  code  frcn  pattern  natrix  =>  '  )  ; 
intread?  ipassCi , 11  )  ; 

if  ?  i passU  >  npatt )  or  ?  ipassti,  13  <=  8 )  then  begin 

writeln?  'Undefined  pattern.  If  irreconci liable  at  this  point  ', 
'you  nust  ter«in?te'  )  ; 

writeln?  'and  define  the  pattern  with  AAPKPN.  For  the  ', 

'weapons  file  currently  in'  )  ; 

writeln?  'use  ?  fnane2,  *  ),  total  nunber  of  defined  patterns  ', 
'=  ',  npatt,  ; 

writeln  ; 


uritelnt  'To  ABORT  progran,  press  control-C.'  )  ; 
end  ; 

until  chkgoodt  ipissU,llt  npatt,  1>  ; 
infot  3  )  ; 
piosinfot  i  )  ; 

uritelnt  'Elenent  nuaber  of  priaary  target  =  ',  npxtil  )  ; 
uriteln  ; 

uritelnt  'Preplanned  aiapoint  —  x*coord  =  passti, 11:3:1  )  5 
uriteln  ; 

uritelnt  'Preplanned  aiapoint  —  y-coord  =  ',  pass[i,21:3:l  )  ; 
uriteln  i 

uritelnt  'Attack  direction  t  referenced  CQt  froo  +x-axis  )  =  ', 
passl i, 31:3:1  )  5 

uriteln  ; 

uritelnt  'Attack  pattern  code  fron  pattern  aatrix  =  ', 
ipassti,!!  )  ; 

uriteln  ; 
uriteln  ; 

uritet  'Is  this  inforaation  correct  ?'  )  ; 
queryt  correct  >  : 
drscr  ; 

if  correct  =  i  then  begin 
uriteln  ; 

uritet  'Reenter  pass  nuaber  ',  i,  '  of  ',  npass,  '  total;  '  )  ; 
end  ; 

until  correct  =  I  ; 
if  optCi  |U  =  I 
thin  begin 

passti, 41  :=  -1  ; 
repeat 

passinfot  i  )  ; 

uritelnt  'Enter  the  probability  that  the  aircraft  survives 
'enroute  attrition  and'  )  ; 
uritet  'begins  its  first  pass,  '  1  ; 
realreadt  pissCi ,41  )  ; 
until  probchkt  passti, 43  /  ; 
good/al  :=  true  ; 
if  i  <  npass 
then  repeat 
drscr  ; 
uriteln  ; 
if  goottol 
then  begin 

uritelnt  'If  this  aircraft  uill  fly  a  second  pass,  ', 
'enter  uhich  of  the  reaaining  passes'  )  ; 
uritelnt  't  out  of  npass,  '  total  )  it  uilt  fly, 
'Enter  I  for  no  second  pass,'  )  ; 
end 

else  uritelnt  'Pass  ipisnti,23,  '  is  not  available.'  > 
uriteln  ; 
passplas  ; 
uriteln  ; 

uritet  'Second  pass  uill  be  nuaber  =)  '  )  ; 


intreadt  ipassti, 23  )  ; 
drscp  ; 

goodval  :=  <  ipassti ,23  <=  npass  )  and  (  ipassti, 23  )=  8  )  ; 
if  goodval  and  <  ipassti ,21  O  §  )  (array  subscript  in  range) 
then  if  <  optt  ipassti, 21, 2  3  )  8  ) 
then  goodval  :=  false  ; 
until  good/al 
else  ipassti, 21  :=  §  ; 

if  ipassti, 21  )  8  then  begin  {  for  next  pass  info:  ) 
passti,51  :=  -i  j 
repeat 
writelo  ; 

witelnt  'Enter  the  probability  that  the  aircraft  survives  ', 
'target  area  attrition  and'  )  ; 
urite<  'begins  its  second  pass.  — )  '  >  j 
realread(  passti ,53  )  ; 
until  probchk(  passti ,51  )  ; 
optt  ipassti, 23,1  3  s=  1  j  <  second  pass  flag  ) 

optt  ipassti, 23, 2  3  :=  Itac  {  ( assign  acft  to  second  pass  ) 

end  ; 
end 

else  begin  <  current  pass  is  acft's  second  pass  ) 

passti, 43  :=  1  j  (  probability  of  enroute  attrition:  N/A  ) 
ipassti, 21  j=  •  j  <  can't  have  a  third  pass  ) 
passti, 53  :=  I  i  <  probability  of  survival  to  reattack:  N/A  3 
end  ; 

i  :=>  i  ♦  1  i  t  pass  counter  3 
end  | 

until  <  i  3  npass  )  or  batoal  |  (  loop  teniinates  nonwlly  at  npass  a  1  3 

until  not  badval  t  (  loop  in  case  of  discrepancy  in  nunber  of  A/C  3 

end  ;  t  procedure  nissioo  ) 


procedure  outdat  ; 

{  This  procedure  writes  the  input  tile  tor  MPMQ).  } 
var  if  j,  jr  :  integer  ; 
begin 
drscr  | 
writeln  ; 
writeln  ; 

writeln*  'Now  you  are  ready  to  run  the  main  program  —  AAPHOD. 

'Reoenber  the  tile'  )  ; 

writeln  ; 

writeln*  'name  shown  below,  as  you  will  need  to  enter  it  when  prompted  by  ', 
'AAPHOO . '  >  } 

writeln  ; 
writeln  j 
writeln  ; 

writeln*  'Writing  AAPNOD  input  tile  to  disk  tiles  <  tnane3,  '  >'  )  j 
assign*  disktile,  tname3  )  ; 
rewrite*  disktile  )  ; 
writeln*  disktile,  seedsiB )  \ 
writeln*  disktile,  nsupi5,  nsasptsS  )  ;  . 
writeln*  disktile,  ntlag3s3,  srrorsd:2,  «lpha:7:3  )  ; 
writeln*  disktile,  nelt:5,  ntgpssS,  npprcwiS,  nareasS  )  ; 
for  i  Vs  1  to  nelt  do  begin 
for  j  i»  l  to  5  do  write*  disktile,  tgtti,jJs9:l  >  ; 
for  j  s3  1  to  3  do  write*  disktile,  itgtttjJJsS  )  ; 
writeln*  disktile  )  | 

if  itgUi.ll  =  1  then  writeln*  diskfilt,  critli.lltftl,  critii,2J:9sl  > 
end  ; 

writeln*  disktile,  ncpiS,  lvs5  )  } 
writeln*  disktile,  npattiS  )  j 
for  i  s*  1  to  npatt  do  begin 
far  j  p  1  to  t  do  write*  disktile,  ip».Ui,jls3  )  ; 
writeln*  disktile  )  | 

for  J  s*  l  to  8  do  write*  disktile,  paftfi,Jh3sl  >  ; 
writeln*  disktile,  pattti,?ls7s3,  pat«i,18]s7s3  )  • 
for  J  1=  1  to  ipatii,U  do  begin 
Jr  s»  2  X  J  ♦  9  | 

writ«lr><  disktile,  wttii.JrlsBsl,  patUi,  Jr  *  UsBsi  >  ; 
end  { 
end  ; 

writeln*  disktile,  nhardsS,  nwpnsS  )  ; 
for  i  1  to  tthard  do  begin 

for  J  s=  1  to  wpo  do  write*  disktile,  crtabii,J,Us7si  )  { 
writeln*  disktile  ); 

tor  J  i*  1  to  nwpa  do  write*  disktih,  crtaMi,j,21»?sl  )  $ 
writeln*  disktile  >} 
end  ; 

writeli*  disktile,  assptchi5,  irepr:5,  apasssS  )  j 


for  i  :=  1  to  npass  do  begin 
for  j  :=  a  to  3  do  writef  disk-file,  passCi i  )  5 
for  j  :=  <1  to  5  do  writef  diskfile,  passfi,j];8;3  )  ; 
uritelnf  disktile,  ipass£i,U :5,  ipassii ,23 :S,  npxlihS  > 
end  ; 

closet  diskfile  )  ; 
writeln  ; 
writeln  ; 
writeln  *, 

end  ;  (  procedure  outdat  ) 

(=«=«==  =====  MAIN  PROGRAM  = 
begin 

infof  1  >  ; 
init  ; 
mission  ; 
outdat  ; 

uritelnf  'END  OF  PROGRAM'  >  5 


APPENDIX  C 


FORTRAN  LISTING  FOR  THE  ATTACK  ASSESSMENT  PROGRAM-MODIFIED 

This  appendix  provides  the  source  code  listing  for  the  FORTRAN  V 
version  of  the  Attack  Assessment  Program-MQDIFIED  <AAPMQD> .  The 
program,  as  shown,  was  written  for  the  Control  Data  Corporation  <CDC> 


6600  CYBER. 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm 


X  LAST  UPDATE  31/1588  JAN  85  F1LE:NAIN.AAPM0D  X 
PROGRAM  AAPMOD 

XXXXXXXiXXXXiXXXXXXXXXXXXXXXXXXXXXXXXXXitmXmXXXXXXXXXXXXXXXXXXXHXXXX 
*  AIRFIELD  ATTACK  PROGRAM  31 
X  31 
31 — USED  AT  EGLIN  AFB,  FI,  AMD  58-48  CONTRACTOR  LOCATIONS.  31 
31  DEVELOPED  AT  OKLAHOMA  STATE  UNIVERSITY,  31 
31  UNDER  CONTRACT  FQ8435-79-C-8255,  FOR  THE  JOINT  TECHNICAL  COORDINATING 
X  GROUP  FOR  MUNITIONS  EFFECTIVENESS.  31 
31  MODIFIED  BY  CAPTAIN  ROBERT  N.  MIGLIN  TO  PROVIDE  INTERACTIVE  31 
31  CAPABILITY  FOR  TACTICS  ASSESSMENT.  31 
31  FURTHER  UPDATES  BY  MJQR  DAVID  A.  RQQDHQUSE  AND  CAPTAIN  T.K.  GREEN  31 
31  it 
X--N0N-ANS1 .  ANS1=8  REQUIRED  FOR  CDC  448U.  X 
X  X 


XXXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X 

CHARACTER  FTW1EX4,FNANE2X4 
INTEGER  NPX<32) 

X 

comm 


1  A0HUI2) 

,GPHT< 15) 

.KXPTCH 

.S1GA0MU12), 

2  AMINO) 

,BPHTAC( 15) 

,S1GARP(3) , 

3  APRAO) 

,BPHTSU5) 

,S1GASP(3) , 

4  APRM1NO) 

.LNHITSU12) 

,NSAMP1 

,SI6CRT(3) , 

5  AREPO) 

,1CRAT(4) 

,PASS<8i32,4) 

,SI6CTS<27) , 

4  ASTPO) 

,ICUT(4,3) 

,PATT(  13,34) 

,SIGFIL<27) , 

7  COWTRU12) 

,IH1T<3) 

.RAPFU12) 

.SIGHTS!  112), 

fl  CR1T< 112,2) 

,IPASS02,2) 

,RCUT< 1 12) 

,SIGNAFU12) , 

9  CRTAB1 11,4,2) 

,1PAT(12,4> 

,RH1T<112) 

,SMINA(4) , 

i  0ECARU12) 

.1PCUTO) 

,SAPR<4> 

.SNAPFLO), 

1  DSTRO) 

,SAPRA(4) 

,TGT<  112,5), 

2  empro) 

,IPL(4I) 

,SAVE(8II,3) 

,XC(3), 

3  GPAOACdS) 

, ISAM! 881) 

,SGAPfi<4) 

,YC(3) , 

4  GPA0HU5) 

,1TGT(  112,3) 

,$GAPRA<4>, 

5  GPADNSl  15) 

,i2cmr<4> 

,SGCW<4), 

4GPA8EAU5) 

,KH(3) 

,S£H1NA(4) 

x 

amn/WY/TMOPi 

x 

C0m£N/RAY2/SCUARE(9ll>  ,CRWX 

1 

COMHON/EW)/NSAMP2,NELT  ,NTGPS,NCP,CiWiN,APHlCM,NA^ 

I 

C1H«H/CATA/Nlim<4,2)  ,STEHP(383) 

X 

COmON/JOiti/NFLAG  1,NFIA02,184AX,NSAKPR,ZALPH,  ERROR  ,NSANP,NFLAG3 


C  -  2 


1 - INPUT/INITIALIZE 

* 

TMOPl=i. 28318538718 
SRPI04=8 . 8862269254528 
POV  188=8, 8 1745329252 

I 

PRINT!, 'NAME  OF  INPUT  FILE=>  ' 

REAO  911  RMNE 

OPEN<ONIT=12,FILE=FNANE,STATUS3/OLD/) 

REMIND  12 

PRINT!, 'NAME  OF  OUTPUT  F11E=>  ' 

oran  91 1  RiWF? 

0PEN<UNlT=13,FlLE=FfW1E2,STATUS=W) 

i 

II  REA0< 12,991) 1SEED 
CALL  RANSLf(ISEED) 

1701=1 

READ(  12,!)NSANP,NSANPT 
REA0(  12, !)NFLAB3, ERROR, ZALPH 
I 

I - READ  TARGET  DESCRIPTION 

I 

READ(  12,!)NELT,NT6P$,APPRCU,NAREA 
DO  31  1= 1 ,NELT 

REAO<12,)()(T6T<l,J)  lJsl,5>,(lTST(l,J>,J=l,3) 
TOT<I,3>  *  T8T<I, 3)11. 1174533 
CRlT<I,l)a|. 

CRIT<1,2)*I. 

IF  UTBKI.D.EQ.l)  THEN 
RBUH 12,  *)CR1T<I,1)  ,CRIT<I,2) 

ENOIF 

31  CONTINUE 

REA0< 12,I)NCP,IV 
It 

i - READ  PATTERN  DESCRIPTIONS 

1 

READt 12,I)NPATT 
OP  41  M,NPATT 

REAOt  12,  IXWTKI.J)  ,3*1,11) 

DO  41  ,I*I,1PAT<1,1) 

Jfc2W»9 

REAOt  12,1)WTT(  I ,  JR)  ,PATT(1 ,48*  l) 

41  CONTINUE 

I 

1 - m  CRATER  INC  TABLE 

1 

REACH  I2,I)H,N 
00  52  I=I,H 

REACH  I2,IXCRTABU  ,J,  I)  ,J=1,N) 
REA0(12,1>(CRTABU,J,2),J*1,N) 

52  CONTINUE 


CmiN=i.0EI8 

CRf«X=8. 

* 

! - READ  MISSION  DESCRIPTION 

*  IREPR...  TELLS  WMT  TYPE  OF  REPAIRS  ARE  TO  BE  MDE 

I  =  8— ALL  MAJOR  PAWEHENTS  !CRIT!L,i)>8) 

I  ARE  REPAIRED  IN  ORDER  INPUT 

*  =  1 —EASIEST  STRIP  TO  REPAIR  FIXED  FIRST, 

i  THEN  REST  WITH  (CRIT!L,1)>8)  IN  ORDER  INPUT 

*  =  2— ONLY  EASIEST  STRIP  TO  REPAIR  IS  DONE 

i  3 IX— REPAIR  STRIP  AND  APPROACH  IN  ORDER  OF 

I  *X*  ABOUE,  I.E.,  11  =>  APPROACHES  AND  1. 

I 

READ!  12,  DNXPTCH,  IREPR,  NPASS 
00  78  1=1, NPASS 

REAO(  12,!)  (PASSU  ,J)  ,J=1,5>  ,<IPASSU,J)  ,J=l,2)  ,NPX(1) 

PASSU, 3)  =  PASSU,  3)18.8174533 
PASSU,0=PASSU,3) 

78  CONTINUE 
CL0SE(UNIT=12) 

I 

PRINT!, 'DO  YOU  WANT  AN  OUTPUT  ECHO  OF  INPUT?  1=YES,  8=NQ  =)' 
REAOK.OECHO 
IF  (OECHO.EQ.I)  THEN 
WRITE! 13, 1971) 

WRITE! 13, 1931)1 SEED 
WRITE!  13,  !95I)NSAMP,NSAHPT 
WRITE! 13, 1988)NflA63, ERROR,  2ALPH 
WRITE! 13, 1975)NELT  ,NT6PS,APPRCW,NAREA 
DO  ISIS  l=t,NELT 

WRITE!  13, 1955)TQT<  I ,  I)  ,TST<  1 ,2)  ,TBT(  1 ,3)  I34I/TW0PI , 
t  T6T!1 ,4)  ,TGTU  ,5)  ,(1TGTU  ,J>  ,J»1 ,3) 

IF  (ITST!I,1),EQ«I)  WRITE!13,1955)CRITU,1),CRITU,2) 

ISIS  CONTINUE 

WRITE! 13, 195I)NCP,LU 
WRITE!  13, 195l>fWATT 
DO  1318  I=1,NPATT 
WRITE! 13, 1961) < 1PAT! 1 , J) , 1 ,4) 

WRITE!  13, 1961)  <PATT(  I ,  J)  ,«M,  II) 

00  1311  J=1,1WT<1,1) 

JWfcZlM 

WRITE!  13, 1953)  PAH!  1  ,JRNS>  ,WTf!  1  ,J8NGU) 

1518  CONTINUE 

WRITE! 13, !93I)H,N 
DO  1522  1=1, H 

WRITE!  13, 1943XCRTA8!!  ,J,  1)  ,J=l  ,N) 

WRITE!  13, 1945)  <CRTA3<  1 ,  J,2) ,  J=1  ,N) 

1522  HNT1NUE 

WRITE!  13, 193DKXPTCH,  IREPR,  NPASS 
DO  1531  1=1, NPASS 

WRITE!  13,  l?5S)PASS(  I ,  l)  ,PASS!1 ,2)  .PASSU  ,3)13«/TU0P! , 

I  PASS!  1 ,4)  ,PASS!  1,5),  UPASS!  1 ,  J) ,  J=l  ,2)  ,NPX(  1 ) 

1538  CONTINUE 


X 

X - INITIALIZE  FOR  MONTE  CARLO 

X 

WRITE < 13,995)FNANE,FNAH£2 
NSANPR=1 
00  89  I=l,NELT 
IT'GTTP=IT6T<I  ,2) 

00  89  J=1,NPASS 
NPTIW=IFASS(J,1) 

JWfNTP=IFAT(NPTRN,3) 

IF  <IT8T(l,l>.Efl.I>  THEN 
T8HL0 1=CRTAB(  1TGTTP ,  JHPNTP ,  1) 

T0HLD2=CRTAB( ITGTTP ,  JWPNTP , 2) 

CWIN=ANINUCRH1N,TBHLD1  ,T8HL02> 
CRNAX=AHAX1(CRNAX,TBHL01ITBHL02) 

ENOIF 
81  CONTINUE 

CALL  1NITLINELT ,NTBPS ,NCP , LW> 

X 

X— TEST  TO  SEE  IF  LIMITING  MONTE  CARLO  LOOPS  IS  BOTH  DESIRED  <NFIAG3=I) 
I  AND  APPROPRIATE  (N»HP)2II> .  IF  SO,  SET  FLAGS  AND  SET  INITIAL 
X  NQNTE  CARLO  LOOP  LIMIT. 

* 

IF  <(tfflA63.EQ.I)>AND.{NSANP<SE.2ll))  THEN 
NFLASl=l 
NFLAD2M 
M9AX=NSAflP 
NSANP»2M 
ENOIF 

1 
X 

X — —MONTE  CARLO  LOOP  -  821  ON  <IT< 

2 

85  DO  821  IT=NSANPR,NSANP 
X 

2 - INITIALIZE  VARIABLES  WHICH  SET  RESET  EACH  HONTE  CARLO  REP 

X 

NSAHPMT 

til  OO  III  L*1,N£LT 

0€CA8<U»TST<L|I)IT6T<L,5) 

III  CONTINUE 
DO  121  L» 1, 3 
ipctrnuai 
JNlT(l)el 
ANIN(L)-I. 

APfWNtU3!. 

AFflA(l)=l. 

121  CONTINUE 


X 

I - SET  NUMBER  OF  HITS  PER  TARGET  EQUAL  TO  ZERO 

it 

DO  138  L=  1  jNELT 
LNHITS(L)=8 
138  CONTINUE 

X 

X - COMPUTE  IMPACT  POINTS  OF  WEAPONS 

X 

288  00  378  I=1,NPASS 

X 

1 - SEE  IF  A/C  SURVIVED.  IF  YES,  CHANGE  NEXT  PASS  PS  TO  REATTACK  PS 

X  IF  NOT,  CHANGE  NEXT  PASS  PS  TO  8.8, 

it  AND  108  NO  HITS  FOR  THIS  PASS 

I 

Nf!P=IPAS$<I,2> 

CMZYIWWNFO 

I?  <CRAZYN.0T.PASS<I,4»  THEN 
RASS<NXTP,4)=8. 

GO  TO  378 
ELSE 

FASS<NXTP,4>=PASS<I,5> 

ENDIF 

il 

NPTfitelPASSU,!) 

f8CPaIPAT(NPTRN,l) 

NB04*IPAT<NPTRN,2> 

RHAJ=PATT<NPTRN,5) 

RHIN*PATT<NPTRN,<J> 

mM>ATT<NPTIW,7) 

VNIN«PATT<NPT8N,8) 

*IPAT<fm,4) 

X 

X - LOCATE  STICK  PATTERN  CENTER 

X 

PASSXT=M$S(1,I) 

WSSTT*W3S<1,2> 

IF  <NP3«l>,tE.NCP>  THEN 
NITTsNPXd) 

GALL  TR1$D8(0AP> 

PASSXT=PASSXT»OAPXCOS<T0T(Nrrr,3)> 

WSSYT«IASSrn«0APXSlNtTeT<Nm,3)> 

EKOIF 

SlNP*$lNtFASS<l,3)> 

C0SJfeC0S<WSS(l,3)) 
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IF  (KQDE.EQ.3)  THEN 
•  -GUIDED  MUNITIONS. . . 

CRAZYIHMNFO 

IF  (CRAZYN.LE.PATKNPTRN,?))  THEN 
CALL  MOWN  <R,FATT(NPTRN,1)  ,DfflATT(NPTRN,2)) 

ELSE 

IF  < CRAZYN  ,LE . PATT (NPTRN , 8) )  THEN 
CALLNOIWN  (R,WTT<NPTRN,3),D,PATT<NPTIH,4)) 

ELSE 

CALL  NOftfl  <R,PATT<NPTRN,5),D,PATT<NPTRN,4)> 

ENDIF 

ENDIF 

X=PASSXT  4  RXCflSP+OXSINP 
Y=PAS$YT  4  RXSINP-DXCOSP 
asE 

■  -DUMB  BOMBS,.. 

CALL  NORM  (R^TKNPTRN.D.D.mmNFTRN.Z)) 
XCTR=PASSXT4RXC0SP+03tSINP 
YCTR=FASSYT*RIS1NP-0XCQSP 
ENDIF 

LOCATE  HEAP04  IMPACT  OR  CENTER  OF  DISPENSER  PATTERN 

DO  341  K=l,mEP 
CRA2YN=WNFO 

IF  (CRAZTN.ST.PATf(NPTRN,9)>  GO  TO  341 
IF  (KQ8E.LT.3)  THEN 

CALL  MORAN  <R,PATT(NPTBN,3)  »0lWn<NPTRNt4>> 

K2=2XK*9 

X  IHOD*XCTR4  ( RATT  (NPT8J  ,K2)  *R)  ICOSP*  ( PATT  <NPTRN#K2*  i)  ♦D>XSINP 
YIM00«YCTRKWTT<Nli»nW,K2>4li>*SlNP-<PATT<NPT»4lK2*l>*0>*C0SP 
ENDIF 

-LOCATE  IMPACTS  (NBOH  **  l  08  W88  B1METS/C8U  SHELL) 

DO  351  NbltNBON 
IF  <KOO€AT,3>  THEN 
X*XIHOO 
Y=YIW00 

IF  (NBGN.GT.i)  THEN 
(SAWWWtfO 

IF  (C«ZYN.GT.WTTmSNll»))  SO  TO  351 

CMZYMtfiFO 

XI*2.*RNAJI0WW-«W 

CWZttttWtfO 

YI«2  .IfHINICJWYN-RNIN 

IF  (K00E.E8.2)  THEN 

XtYlOL.-<X1!X2/flNA4XI2)*<Y  I1S2/RH1NII2) 

IF  (XIYIOL.GT.U  GO  TO  281 
IF  <(«1AJ.5T.I.).AND.(WIN.GT.I.))  THEN 
XIYIlLc<Xlll2AI1AJlX2)*(YMX2AltiNIX2} 

IF  (XIYUL.LT.  I.)  GO  TO  23i 
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ENDIF 

X=X+X  WC0SP4Y  USINP 
Y=Y*X  13f  SINP-Y  «COSP 
ENDIF 
ENDIF 

* 

i - CHECK  FOR  ANY  HIT  OR  NEAR-HISS 

I 

381  DO  348  l=IfNElT 

SINT=SIN(T6T(L,3» 

C0ST=C0S<TGT<Lf3>) 

XP=X-7ST  <  L ,  1) 

YP=Y-T6T<L,2) 

T 1=XPX COST +YPXSINT 
XP=YP*COST-XP*SINT 
nsnp»n6T(L,2> 

JWPNTP«IWT<NPTW,3) 

IF  «L.Sr.NCP).WD.a.LE.aVHICP)»  THEN 
IF<A8S(T1)-CRTA8(ITSTTP,JHPNTP,2>.BE..5)1TGT(LI4))  GOTO  348 
IF<A8S(XP)-CRTAB(IT5TTP,JMMP,2).G£..5ITGT<L,5)>  GOTO  348 
ELSE 

IF<A8S<T I) -CRTA8<  1T6TTP , JMPMTP , I) .GE. .5MTGTT(L,4)>  GOTO  348 
IF(ABS<XP)-CRTAB<ITGTTP,JaWTP,l).GE..5IT6T(L,5»  GO  TO  348 
ENDIF 

338  tttHl 

IF  <N.LE.88I>  THEN 
SAWE(Hfl)=TI*.5*T6T<L,4> 

SAUE<H,2>=XP+.5ITSTa,5) 

SAUE<N|3I  VlOATLU 
ISAM<H)=*I!W<NPTW,3> 

COUMTR<L>sCOUMTR<L) ♦ I . 

INHITSTLMNHlTSd)  ♦  I . 

ENDIF 

348  CONTINUE 

IF  <N.GT.88I)  «RITE<13,U88)I,N 
fWUNt<N,88l> 

3S8  CQNTIWJE 
348  CtNTINUE 
378  CONTINUE 
vsm 

IF  (N.EQ.8)  THEN 
HR11C< 13,848) IT 
GO  TO  318 
ENDIF 
I 

i — -hi ssi on  is  complete 

i 

378  CALL  SORT  (H,SMfE(  lt3>  »SAU£(  lt8>  »SWJC(I(2}  tISW(  l» 

00  481  J»l,NTGPS 
6PA0AC(J)-I. 

GPHTAC<J>=8. 

481  CONTINUE 


00  411  1=  1  ,NELT 
ITGTGP=1TST(1,3) 

GPHTAC(  1TGTGP>=GPHTAC<  ITGT6P)  +LNHITSC  D 
SIGHTS<  I)=S16HTS<I) +LNH1TSU)  «2 
418  CONTINUE 

00  421  J=1 ,NTGPS 
GPHTS<J)=GPHTS(J)  *GPHTAC(  J>  !!2 
428  CONTINUE 

i 

I - INITIAL  CONDITIONS  FOR  BOA 

J 

L=1 

K8=l 

CUTS=8. 

FILLM. 

ARFILL=8. 

ARF1LS=8, 

SUNRUNM. 

* 

* - LOOP  ON  EACH  IMPACT,  AND  GROUP  ON  TARGET  ELEMENT 

i 

DO  741  X=1,N 

IF  <(SAWE(KI3).GT,FL0AT<L».0R.(K.EQ.H»  THEN 
438  N=K-K8 

IF  <SAUE<K,3>  ,EO.FLOAT(L))  fcNM 

I 

i - DAMAGE  ASSESSMENT 

i 

581  IF  <ITGT<L,1).EQ.8>  THEN 
I 

«~ - TGI  t  IS  A  BUILDING  OR  fOHWEHENT 

I 

IF  «N.GT.8).AN0.(DECA»<U.GT.8.» 

1  CALL  BLD6(5AWE(KI,  I)  ,SAWE(K8,2)  ,£RTA8,1TGT(L,2) , 

2  ISAV(KI) ,N,T8T<L,4) ,TST(L,5) ,DECAR(L)) 
0IFF^TGT<L,4)iTGT(L,5)-D£CAR<U 
A0H(L)*A0M(LM0!FFAR 
SIGA£N(L)=SIGA0H(L)*D1FFARI)12 
lTGTGPsITGTa.3) 

6PAQAC1  ITGT6P)=6PADAC(  ITGT6P)  *OIFFAS 
ELSE 


I - .T5I  i  1S  A  fvWEMENT 


If  (N.LT.I)  THEN 
IF  (L.LE.NCP)  THEN 
XC<L)=.5l(TGTa,4)tCRmL,I)) 
YC<LK5I<TGT<L,5)-CRIT<L,7}> 

ENOIF 
GO  T9  731 
ENOIF 

CALL  SOT(N,SAU€(K8,i)  ,SAVE<K8,2)  ,SAWE(W,3),ISAytM)) 
IF  (NAREA.EQ.I)  CALL  (MAF 
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<  SAv£<  K8 , 1)  ,SAvt(K0 ,  2) ,  CkTAB  , ITGT<  L , 2) , ISAv( KB) , 8 , , 8 , , 
IFIX<T8T<L,4)> ,  IF1X(TGT<L,5>)  ,N,SUNRIJN) 

-TAX1WAYS  MINOR  PAVEMENTS) 

FIND  WANDERING  PATH  ONLY  FOR  TAXI -ONLY  TARGETS  <CRIT(L,i)=8.) 

IF  <CR3T(L,i).LT.1.8)  THEN 
GALL  NINCW  (CRNAX,N,SAUE<Ki,I),SAUE<K8,2)) 

CRTAB( 1 , I ,23 , ITGT(L ,2) , 1$AV(K8> , 

CRIT(L,2) ,TGT(L,5) ,NFILL,COTS,ARFILL) 
ARF1LS=ARFILL 
FILL=FL0AT(NF1LL) 

RHIT(L)=RHIT(L)+FILL 

NTXWY=L-NCP 

SI6FIL(NTXWY>=SI6F1L<NTXWY)  -^FILLXFILL 
RCUT<L)sRCUT(D*CUTS 
53GCTS(NTM)=SI  GCTS(NTM) +COTS5ICtITS 
asE 


- 81M8YS  (MAJOR  PAVEMENTS) 

RCH  FOR  A  CLEAR  STRIP  (LSNSTH=CRIT(L,I)  X  WiDTH=CRIT<L,2)> 
HfNK-1 

IF  ((X.E6.H)  .AND, (SAME  (N, 3)  .EQ.FLQAT(L)))  H0=NB+I 

IPCUT(D=8 

IHIT(L)=8 

ANIN(L)=8. 

APRNIN(L)=8. 

APRA(L)=I. 

DO  541  KK=!,4 
DO  548  KKM,2 
MIMAPR  <  KK , KK2> =8 
CONTINUE 

CALL  CLSTRP<CRMAX(N,SAUE(K8,i> ,SAVE(K0,2) ,CRTAB, 
IT0T<L,2) f ISAV(Kf) ,TST(L,4) ,TGT(L,5) , 
CRIT(L,  1)  ,CRIT(L,2)  ,XC(U  ,YC(L)  ,W1N> 

IF  (H4IN.GT.8)  THEN 
RGtrr<L)=RCirr<L)+i. 

IPCUT<L)=1 

ENDIF 

RHIT(L)3RHIT(L) +FLQAT (NNIN) 

IH1T(L)=W1IN 

SIKSTP=8. 

KNi»K-l 

IF  ((K.EO.H)  ,AND.(SAVE(K,3)  ,E8.FL0AT(L)))  fWl»K 

KAfI 

MFLASaR 

XSl=XC(L) 

YS1=YC(L) 

XS2=XC(L>-CR1T(L,I) 

YS2aYC(LHCR3T<L,2) 


IF  ((KPl.lE.N) ,AND.<W11.LE.M»  THEN 
ITGTTP=ITGT<L,2> 

DO  588  KW=KPI,KM1 

jwmtp=isw<kh> 

IF<SAF^E(IW, l)+CRfTAB<nGTTP,JWPNTPlKA) .LE.XS2)  GOTO  588 
IF(SflWE(KH,  D-CllN.X6E.XSt)  GO  TO  590 
IF<SAME<IW,  1)-CRTAB<IT6TTP,JWPNTP,KA)  .GE.XSI)  GO  TO  581 
IF(SflWE<HM,2)*CRTA8<ITGT7P,Jl|fPWTP,KA).LE.YSI)  GO  TO  588 
IFI8flWE<M<,2)'CRTAB<ITSTTP,JWPNTP,KA).GE.YS2>  GOTO  588 
K2=KZM 

IF  M.NE.K2)  THEN 
S1=SAME<KW,  1) 

S2=SWE(KW,2> 

S8=SflWE(KW,3) 

ITT=ISW(KW> 

KZP=KZH 

DO  571  X8=KZP,f« 

KK=tW-X3+KZP 

SAW£<  KK  t  l)=SftiE(  KK- 1 , 1) 

SAWE<  KK ,  2)=SflWE(  KK- 1 ,2) 

SAVE! KK , 3)=SAWE(  KK- 1 ,3) 

I5W(KK)=ISW<KK-D 

CONTINUE 

SAWE(KZ,D“St 

SflWE<KZ,2)=S2 

SPWE(KZ,3)=83 

ISW<K2)=ITT 

END1F 

CONTINUE 

ENOIF 

IF  WIA8.E8.8)  THEN 
KZT=I 

IF  <KZ,NE,KH<1»  THEN 
KZT«KZ-KH<L> 

KK*KH<LHI 

KH(U=KZ 

IF  mUE.t)  CAU  CWLAP 
(SM(KK,1)  ,SAYE(KK,2>  ,CSTABtITQT<L,2> , 

SSMKK)  ,XC<U  -C8IT<L,  II  ,YC<1>  ,1FIX(CR1T(L(D) , 
lFIX<CHIT<Lf2»,KCT,StKSTP> 

ASTPa>=ASTP<l>  ♦StHSTP 
8IGASPa)s8ISASP<U*SUiSTP*8UHSTP 
AHlN<L)®Sth5TP 
ENOIF 
HFIA8*I 
KFF>2 

KPI=KPI4K2T 

KZ=KPM 

KZMtZ 

XSi=XC<l)-CfiIT<l,D 


IF  <XS1.GE.CR1T<L,2»  THEN 
XS2=CR1T(L,2> 

GO  TO  548 
ELSE 

SO  TO  448 
ENOIF 
ENDIF 
K2T=8 
NFILL=B 

IF  (KZ.NE.K21)  THEN 
KZMZ-KZ1 
KK=K2H1 

IF  (NFLAG.GE.3)  CALL  SORT 

<KZT,SAUE(KK,2) ,SAWE(KK, I) ,SAVE(KK,3) .ISAVOOO) 
QO  892  11=1, KZT 

SWE(KK*11-1,2)=SWE<KK*IH,2>-YS1 

SAWE<KK*IM,l)=SAVE(KK+II-l,l)-X32 

CONTINUE 

IF  <NFLAG.LE.2) 

CALL  NMH(CRhAX,KZT,SAVE(KK,  1)  ,SAWE(KK,2) , 
CJTTABU,  1,2)  ,1TGT(L,2)  ,I8WCKK)  .APPRCW, 
CRIT<L,2) ,NFILL,CUTS,ARFILL> 

IF  <NFLA6,6£.3) 

CALL  HIHCM<C}HAXfK2TfSA^E<KKf2>  ,SAWE(KK,  1> , 
CRTA8(l,I,2)in8T<L,2>,lSAV(KK),A?PRCW, 
CRIT(L,2)  ,NFIll,CUTS,AflFILD 

00  893  I 1=1, KZT 

SfW<KK*lH,2>=8WEtKK»JI-l,2>*YSl 

SAWE<KKMH,1>=SWE<W;4IH,1>4XS2 

CONTINUE 

ARFUS*ARF1LS<ARFILL 
ENOIF  « 

N»<tflAG,2)=KZT 

KZ=XZHNFILL 

K21=KZ 

NUNAPR(NFIA8,  DsNFILL 
FILL=FILL4FLQAT(NFILL) 

IF  <K2.EQ.I91I>  GO  TO  478 
GOTO  <441, £31,641, 478) ,rtf LAG 

PRINTI,'E88  GOTO  ORIGMW.  LINE  NUfiER  733' 

HFIAS=*2 

NFILL=I 

KPl*Kf>HK2T 

XSt=T8T<L,4)-CRIT(l,2) 

IF  <XC<LHCR1T<L,2>.LE.TGT<1,4»  THEN 
XS2=XC<L) 

GOTO  341 
ENOIF 
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i 

658  MFLA6=3 

KP  1=KP  1-NUMAPR<  1 , 2)  +NIHAPR(  1,  D+NFILL 
GALL  SO!fT(K-KPl iSAV£<KPI ,  1)  ,SAVE<KP1,2) , 

1  SAVE<KP1,3)  ,ISAV<KPD) 

XS1=CRIT(L,2) 

YSI=I. 

XS2=8. 

YS2»YC(D+C8IT(L,2) 

60  f0  568 

3E 

668  HFLAS=4 

KP1=KP1*K2T 

XS1=T6T<L,4) 

XSMST<Lt4)-CRlT<L,2) 

60  TO  568 

i 

678  KMH(L) 

IF  <(lREPR.GE.i8).MD.<F!LL.GT.9.»  THEN 
URlTE<13t890>L,KH<D  ,Kt,FILL, 

1  <SAVE(KX,I)  ,SWE<KK,2)  tSfWE(KK,3>  ,KK=I,H) 

K2=KHa>*IFlX<FlLL*.81) 

IF  <L.ffM>  THEN 
K8»IFIX<FlLlUt) 

DO  691  KZi*l,K8 
KXoMK ZH 
St=SWE(KK,l) 

S2»SAWE<KK,2) 

S3=SWE(KK,3) 

I8*ISMKK> 

KZMttKD*K2Ul 
DO  681  W4»KZP,KK 
W4!=M(K“KW*K2P 
SAVEM1,I)=SAVE(I«H,I) 

SAMEUSO  t,2)=SWEOa4H,2) 
SWE<KNlt3>=SAWE(IWH,3) 
ISAW((441)aISAW<(541"l) 

688  '  CONTINUE 

WMttP-l 
SAUE4KZP, 1)»S1 
SWE<KZP,2)«S2 
SPWE(MP,3)aS3 
ISAW(KZP>alS 

691  CONTINUE 

ENOIF 
ENDIF 

788  SIGCRKL)  38I6CRT(L)  ♦FLOAT  MIN)  iI2 

ENAPFL(L)=ENAPFL<L)4F1LL 
SNAPFL(L)=SNAPFL(L)*F1LUI)I2 
APSNIN(L)«F1LL 
GO  TO  728 
ENOIF 

721  AOKO>=A»1<U»SINHN 
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ITGTGP=ITGT(L,3) 

6PA0AC(  1TBT6P)=6PADAC<  ITGT6P)  +SUMRUN 
SI  GAOH<  L)  -SI  GADH(  L) +SUHRUNXSUNRUN 
WPFa)=WPF(L)4AfiFlLS 
SIGfMF<D=SieMF<LHARFILS3MRFILS 
IF  <CR1T<L,1).GT.8.>  APRA<L)*ARFILS 
EHDIF 

738  CONTINUE 
L=L+! 

K8=K 

FILL=8, 

ARFILL=8. 

ARFILS=8. 

CUTS=8. 

SU1RUN=8. 

IF  <SAU£(K,3) .GT.FLQAT(D)  GO  70  431 
IF  ((K.ESiti)  .AN0,(SAVE(K,3)  .EQ.FLOAT(L)))  GO  TO  438 
IF  ((L.LE.NEL7) .AND.IK.EO.N))  GO  TO  438 
ENDIF 

748  CONTINUE 

00  7S8  J=l,NT6PS 
6FA0HS(  J)=6FADHS<  J> *6PADAC( J) XX2 
7SI  CONTINUE 

113=1 
I 

X - CONFUTE  COMBINED  PROBABILITIES  FOR  RUMMY,  TAX1HAY.AND  SOD 

X 

IF  <NCP.8T.J)  THEN 
13=8 
KJ=i 
IFIN*» 

00  798  «JJsl,2 
00  791  JK=t,NCP 
X 

X - ONLY  INTERESTED  IN  182  <K£>1),  143  <K3*2),  243  (KJ=3) 

X 

IF  (JJ.GE.JK)  GO  TO  798 
IF  UPCUTUI3) .EQ.8)  GOTO  768 
IF  <IPCUT< JJ>  <NE •  1)  11$=JJ 
IF  UPCUT(JK)  .NE.I)  II3=JK 

748  IF  ((IPCUT(JJ) .NE.D.OR.UPCUKJK) ,NE.D)  60  TO  788 
X 

X - -GOTH  SURFACES  ARE  CUT 

X 

13*13*1 

X 

X - II  INDICATES  WHICH  SURFACE  HAS  THE  NINJHUN  NUNGER  OF  CRATERS  TO 

X  REPAIR  FOR  COMBINATIONS  OF  2  SURFACES  AND  I 13  FOR  ALL  3  SURFACES 

X 

II=JJ 

IF  <IHIT(JJ>.GT.IHIT<JK)>  11= JK 
IF  <1HIT(II3).GT.IHIT<JK»  1I$=JK 


X - DISTRIBUTION  OF  MININUN  NUMBER  OF  CRATERS 

X 

778  ICUT<KJ,II)=lCUT(KJ,Iim 

I2CUT<KJ>=I2CUT(KJ> ♦ I 
S6CRAT(KJ>=SSCRAT<KJ) +FL0AT<  1KIT(  1 1)  >XX2 
X 

X - MINIMUM  NUMBER  OF  CRATERS 

X 

!CRAT<KJ)=ICRAT<KJ)+IH3T(II) 

I 

X - -AREA  OF  CRATERS 

31 

SM1NA(KJ)=SMINA<KJ)4AMIN(II) 

SEMINA(KJ)=SGNINA(KJ)  +ANIN(  1 1)  3(312 
X 

X - -MINIMUM  NUMBER  OF  CRATERS  ON  APPROACH  TO  OPERATION  STRIP 

X 

SAPR(KJ)=SA?R(KJ)4APRMIN(II) 

SGAPR(KJ)=S6APR(KJ)+APRMIN(II)XX2 

X 

X - AREA  of  craters  on  approach 

X 

SAPRA<  KJ)=SAPRA<  KJ)  -*APRA<  1 1 ) 

SGAPRAt  KJ)=SBAPRA<  KJ) *APRA< 1 1) XX2 
IF  (IFIN.EQ.l)  60T0  81I 
7BB  KJ=KJ4l 

IF  «JJ,NE.2).0R.U!i.NE.3»  60  TO  798 
X 

X - AIL  COMBINATIONS  OF  2  SURFACES  WWE  BEEN  LOOKED  AT,  IF  ALL  3 

X  SURFACES  HfNE  BEEN  CUT  (13=3)  COMPUTE  STATISTICS  FOR  ALL  3  it  EXIT 
X  LOOP  <IFIN=l). 


IF  (I3.NE,3)  69  TO  Ml 

KJM 

11*113 

IFltel 

60  TO  771 

791  CONTINUE 
END  IF 

811  CALL  RERAlRdttPTCH,K2(ttt(IREPR,CRHAX,lI3,NAREA,NCP) 
mi 
HNI 
KZM 
IN 

818  IF  (IT.8T.1)  THEN 

IF  <HQO<lTlN$WT>.ES.i>  CALL  RESETS 
ENOIF 

821  CONTINUE 


X 

* — -TEST  TO  SEE  IF  LIMITING  MONTE  CARLO  LOOP  MS  DESIRED 
X  AND  APPROPRIATE.  IF  NOT,  AVOID  SUBROUTINE  *NCOHP'. 

I 

IF  !!NFLAG3.EQ.l) .AND.!NSAMP.6E.288))  THEN 
X 

X — -TESTS  ON  FLAGS  SET  INSIDE  SUBROUTINE  'NCOMP*  TO  DIRECT 
X  EITHER  RETURN  TO  MONTE  CARLO  LOOP  OR  PASS  ON,  BASED  ON 
if  ESTIMATE  OF  ITERATIONS  REQUIRED, 
if 

IF  (NFIAG2.E9.0)  CALL  NCOMP 
825  IF  <NFLAGl.EQ.8>  THEN 
NFLABl=i 
GO  TO  85 
ENDIF 
ENDIF 
if 

if — -CALCULATE  AND  PRINT  STATISTICS 
I 

838  IF  (MOO<(IT-l) ,NSANPT) .NE.0)  CALL  RESLTS 
CLOSE!  UNIT3 13> 
if 

840  FORMAT  (IX, 'NO  HITS  DURING  ATTACK,  MONTE  CARLO  ITERATION!  ',14) 

898  FORMAT  <8H  TARGET  ,I3,9H  KH!D  3  ,I4,6H  Ki  3  ,I4,8H  FILL  3  ,F7.0,8 
180(/1X,3F18.2» 

981  F0RNAT(A4) 

905  FORMAT!' 1  INPUT  FILE!  ',A4,'  OUTPUT  FILEi  ',A4,//) 

991  FORMTU10) 

1210  FORMAT  <lH0,37mORE  THAN  881  HITS  HERE  FKND  IN  PASS,I4,IH./1X,28H 
1 EXCESS  HERE  IGNORED.) 

1934  FORMAT !At) 

1935  FORMAT  < A6) 

1958  FORMAT(4II0) 

1955  F0RMAT(5<Fl5.4,lX),3tll) 

1960  F0RHAT!414> 

1961  FORMAT! !I(F9.3,1X)) 

1945  F0RMAT!4F12.1) 

1971  FORMAT!' I', T2», 'XXX  DATA  INPUT  ECHO  HIV/) 

1975  FORMATS  10, F!l.  1,111) 

1900  FORMAT!118,2FI0<4) 

END 

xxixxxxxxixxxixxxixxxxxxxxxxxxixixxxxxixxxxxixxxxxxxxxxiixxxxixxxxxxxxxi 

X  LAST  UPDATE  23/2300  JAN  84  FlLEsSUBSI.AAP 

xxxxxxixxxxxxxxxxxixxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxximxxxxxx 

SUBROUTINE  TR1SU8(SU) 

1NW4F0 

X3SQRT(2.01U) 

RIM  I08I.IXX- 1811.0 

RETURN 

END 


C  -  16 


SUBROUTINE  NOWN(R,SR,D,S0) 

I 

CttWON/RAY/TMOPI 

X 

X=MNF() 

A=SQRT(-2.3EALOS<X» 

X»IWff<> 

X=IMOPIXX 

R=AXSRXS1N<X) 

D=AXSDS(COS<X) 

RETURN 

END 

SUBROUTINE  INITL<NELT ,NT8PS ,NCP ,LV> 


COWON 

1  A0H(U2) 

,SPHT(15) 

jKXPTCH 

,SIGADN<112) , 

2  ANIN(3) 

,6PHTAC< 15) 

,SIGARP(3) , 

3  APWK3) 

, 6PHTSC 15) 

,S1GASP<3) , 

4  AMNIN(3) 

,1101178(112) 

,NSANP1 

,SI6CRT(3), 

S  AREP(3) 

, I CRAT  <  4) 

,PASS(li32,<) 

,S1BCTS(27) , 

6  ASTPG) 

, I CUT (4,3) 

,PATT<  13,34) 

,S1GFIL<27) , 

7  COUNTR< 1 12> 

,1H1T(3) 

,RAPf(112) 

,SI6HTS(U2) , 

8  CR1T(  112,2) 

, IPASS<32,2) 

,RCUT( 112) 

,SIGNAF<  H2) , 

9  CRTABd  1,4,2) 

,IPAT< 12,4) 

tRHn<ll2) 

,SN1NA(4>, 

li  DECARU12) 

,1PCUT<3) 

,SAPR<4> 

,SNAPFl(3), 

1  DSTR<3) 

,SAPto<4> 

,7BT(  112,5), 

2  ENAPFLO) 

,IPL(4I) 

,SAWE(GII  ,3) 

iXC(3) , 

3  6PA0AC( IS) 

,ISAM(6tiy 

,S8APR(4) 

,YC(3) , 

4  GPACHU5) 

,I7ST< 112,3) 

,SGAPRA(4), 

3  SPAOHSt 15) 

,I2CUT(4) 

,SGCRAT<4), 

6  6WREAU5) 

,KH(3) 

,S9UNA<4) 

X 

DO  II  ial^ELT 
COUNTR<l>£»l. 
SIGHTS(1)*I. 
A0H(1)M. 
SIGMMtDM. 

II  CONTINUE 

DO  21  J»I,NT8PS 
6PHT$(<J)M. 
6W0NS(J)«I. 

21  CONTINUE 
1IWMAWCP 
00  39  K»I(1WW 
MPf<K)M. 
SIGNftf(K)Bl. 
SCUTOOM. 
RH17(K)*t. 
$1GCTS(K)=4. 
SIGFILdOM. 

31  CONTINUE 


00  41  L=i,NCP 
$IGCKT<L>=8. 

ASTP(L)=8. 

SI6ASP(L)=8. 

AREP(L)=8. 

ENAPFL<L)=8. 

SNAPFUU-8, 

IHIT(L>*I 

IPCUT(L)=8 

«11N(L)=I. 

AP!WH(U=8. 

APRA<L)=8. 

DSTR(U=8. 

SI6ARP(L)=#. 

48  CONTINUE 
N1=NCP41 
00  58  1=1, N1 
12CUT(I>=8 
1CBATU)=8 
S6CRAT(I)=I. 

SN1NA(1>=8. 

SGHINA(I)al. 

SAPR<1)=8. 

S6APR(1>=8. 

SAPRA(1)=8. 

S8APRA(l)al. 

DO  51  J=l,NCP 

51  CONTINUE 
RETURN 
END 

SUBROUTINE  SORT<NtXI,YI1Zl,lX> 
OIKNSION  1X<N>  ,21  (N>  ,X1(N>,Y1(N) 
EQUIVALENCE  UT.T) 

JM 

18  AMOtiOH 

IF  (JO.LTJO  60  TO  II 
El  JtWO/2 

IF  UO.IE.I)  RETURN 
KtWWQ 
00  41  10s I, KO 
WHO 

31  NWWJQ 

IF  <XKH0).5T.XKNfl)>  THEN 
T=XI(H0) 

XKHO)=XKNO) 

XI(NO)=T 

T=YI(HO) 

YI(NO)»YI(NO) 


I 


ZI<MO>=ZI(NO) 


it=ix<mo) 

1X<M0>=IX<N0) 

IX(NO)=IT 

HW10-J0 

IF  <N0.GT.8>  30  TO  38 
ENDIF 
CONTINUE 


SUBROUTINE  BLD6<XI , YI , CRTAB ,L,KP,NtTL,TH,AREA> 

X 

D1HENSICN  XI (N)  ,YI(N),CRTAB(  11,4,2)  ,NP(N) 

X 

X - ASSESS  AREA  REMAINING  UNOANABED  AFTER  ALL  HITS  ARE 

X  EVALUATED  FOR  THIS  ATTACK 
X 

RATIO=TL/TW 
DO  18  J=I,N 
O^SQRKAREA/RATIO) 

DL=DW  RATIO 
XH=.5X(TH)L> 

Ytt=.5X(1W-0M) 

XOO* .  5ITL-XH 

Y0O.5XTIHF 

XCEN=X1<J)'XH 

YCEN*YHJ)-YH 

OfrABS<YCEN-YOC> 

02*A8S(XC£N-X00 

NM=NP(J> 

IF  «DULT.(CRTAB<L|NPt))l>4|,SXttO> .AND. 

I  (02.LT . (CRTAB(l,NPJ ,  J>  .5100) )  THEN 

WW 

IF  «DUE.(8.5nM)).ANO.(02.LE.(I.SXTU»  KA«2 

OMOTH»ANIN  K5H,YCEN*CHfTA8(L,NPJ  ,KA) ) 

0MtrTI«»TH^l<l.,YCm*CRTA8<l,NPJ,KA)> 

0U«nWHJNl<0llXCa8*CllT«(L,NPJlKA)> 

OU^H^UWK-AHAXI<l.,XCOK8TAB(LtNPJ,l£A)) 

OAREAMHNBYHXOHOTH 


IF  (AREA.LE.X.)  RETURN 
ENDIF 
CONTINUE 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  LAST  UPDATE  WTM  M  84  FIL£:SUBS2.AAP 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SUBROUTINE  CLSTRP<CRMAX,N,XI  ,YI  ,CRTAB,LT,NP  Jl  JN,Cl,CH,XSTAR, 

1  YSTAR , I C8TAR) 

DIMENSION  XI (N) ,YI(N> .CRTABl 11,4) ,AREA<888) ,IS0RT(888) , JSORT<880) , 
1  NP<N) 

X0=8.8 

YOG.  8 

TSXOCL 

TSYOCH 

CSTARsU.8E15 

ICSTAR=N 


-DEFINE  AREA(J)=DIFFICULTY  OF  REPAIRING  CRATER  J 
CHANGED  28  OCT  81  TO  CONFUTE  AREA  OF  SQUARE  CRATERS 


DO  24  J— l,N 

AREA( J)=4,0XCRTA8(LT ,NP( J))XX2 
24  CONTINUE 


X - SET  UP  FOR  SHEEP 

X 

25  NMIfH 

ISTART=8 
SHEP=»il  .EIS 
DO  11  J=ltN 

IF  ((Y1<J)*CRTAB(LTINP<J)>,ST.YC> .AND. 

I  <YI(J)-CRTAB(LT,NP<J».IT.TSYU))  THEN 


IF  (HUN.Efl.l)  THEN 
fHIN=l 
1S0RT(1)=J 
JSMTdW 
GO  TO  11 
EKOIF 


IftMIN 

tttftMMINd 

JZalSORTdT) 

IF  ( (XI < J) *CRTA8( LT  ,NP<  J) ) )  .IT ,  (XI UZ)  ♦CRTABU.T  »NP<  JZ) ) )  >  THEN 
IS0RT(IT»I)=ISORT(IT) 

1T=*|T-1 

IF  dT.GT.I)  GO  TO  1? 
lSORT(l>aiJ 
asE 

ISOWdMKI 

EKOIF 

1T=NHIN-1 

JlWSORTdT) 
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'  -  4  >  *  «  *»•  *s'*.,,-V*,,**^*fck,'****4fc4  ’  ,  *  .  4  .  ‘  4  <  *  , 

VL.  •  .V  •v.  **_  *•  «,■>  wv  «*  .  ♦  V *  .*  * 


IF  ( < YI  < J)  ♦CRTA8<  LT  ,NP<  J)  > )  ,LT .  (YI  <  JR) +CRTAB(LT ,NP<  JR) ) ) )  THEN 
JSORfT  <  IT+ 1) = JSORT  <  IT) 

TT=*IT- 1 

IF  (1T.ST-8)  SOTO  11? 

JSORT< 1>=J 
ELSE 

JSOHT<mi)=J 

END1F 

ENDIF 

CONTINUE 

-EXECUTE  SWEEP 

DETERMINE  DIFFICULTY  OF  REPAIRING  CRATERS  TOUCHING  FRAME 

IX=ISTART+1 

A1COB.I 

ICOG 

IF  (1X.LE.N1IN)  THEN 
JN=IS0RT(1X) 

IF  «X1<JM)-CRTAB(LT,NP(JM)».LT.TSXU)  THEN 
A1COAICC+AREACJH) 

ICC=ICC+ 1 
IX=IX+ 1 
GOTO  38 
ELSE 

IF  ((XI(JN)-CRhAX).LT.TSXU)  THEN 
IX=IX*t 
GO  TO  38 
ENDIF 
ENDIF 
ENDIF 


i - COMPARE  REPAIR  DIFFICULTY  FOR  FIMtf 

* 

6  IF  (CSTAR.GT.A1CC)  THEN 

CSTAfrAlCC 
!CSTAR*!CC 
XSTAMC 
YSTAR»YC 

IF  (CSTAR.LE.I.IIItltl)  THEN 
X$TAMSTAR*Cl 


I - HwE  FRAME 

I 

16  TEMWirt-CSTAR 
41  lSTART=ISTART*t 


IF  (ISTAm.LE.miN)  THEN 
IS=1S0RT(ISTART) 

IF  (TENP.GT.AREA(IS))  THEN 
TEHP=TENP-AREA(IS) 

SO  TO  41 
ENDIF 

998  IF  (SWEP.GT.AICC)  SHEP=AICC 

TS50*=XS  (IS) +CmAB(LT  ,NP(1S»  ♦CW  .601188881 
IF  (TSXU.LE.TL)  THEN 
XC=TSXU-CL 
GO  TO  IS 
ENDIF 
iiNDIF 
X 

X - SHEEP  FINISHED 

X 

21  TENP=SHEP-CSTAR 
J0P=8 

46  JOWOPM 

IF  (J0P.GT.miN)  THEN 
XSTAR=XSTAR+CL 
RETURN 
ENDIF 

1S=JS0RT<JOP> 

IF  <7EN?.6T.AREA<IS)>  THEN 
TEHP*7EHP-AREA<1S) 

SOTO  46 
ENDIF 

45  TSYU=YI ( I S) ♦CRTA8( LT  tNP< IS))+CHti  ,811181111 

IF.  (TSTU.8T.TH)  THEN 
XSTAB*XSTAR*CL 
RETURN 
ENOJF 

tO»TStU-« 

XO*M 
TSXO*CL 
60  TO  25 
END 

SUBROUTINE  MINCk(CFHAX tN,X,Y,CR,LTtKP(Mvi*4,TLR£P)CLnS,ATOTAL> 

X - HARNETT'S  TAXI  MAY  PROGRAM  INSERTED  TO  REPLACE  HINCH  I  OCT  81 

X  LATEST  VERSION  OF  TAXIWAY  23  APRIL  1982 
X  NC  »  MAX  NUMBER  OF  CRATERS  IN  A  SU6PS08UN 

X  NSU8  =  MAX  NUMBER  OF  SUBPROBLENS  TO  8E  SOLVED 

X  M  =  NUMBER  OF  CRATERS  IN  ENTIRE  PROBLEM 

DIMENSION  1  STARK  till)  tA<  181)  ,X(N)  ,Y(N>  ,CRUI,6) , 

1  LISTK58)  ,LIST2(5I)  ,IT(S8)  ,HX(5I)  ,WY<5»>  ,HR<58> , 

2  IREP(5l),KP(N),lPSffl.(5l),lC0ltf><5l),IBEAS(54) 

X 

CM«</TAXl/NRi,NF,ti 


IF  (N.6T.58)  THEN 
WRITER, 799>N 
CALL  EXIT 
ENDIF 
l 

I - CHANGED  TO  COMPUTE  AREA  OF  SQUARE  CRATERS  28  OCT  81 

* 

751  DO  188  J=I,N 

IF  (CRNAX.LT.CR(LT,KP(J»)  C»«X=CR<LT,KP(J» 

A(  J)=4 .  BXCR(  LT  ,KP(J))3tX2 
188  CONTINUE 
i 

NREP=8 

AT0TAL=8.8 

* 

I - SEARCH  FOR  SUBPRQBLEHS 

i 

1START(1)=1 
NSUB=1 
WWH 
00  118 
JP=J*1 
Jh=J 

EL=X<J)»CR<LT,KP<J>) 

EU=X(JP)“CR<LT,KP(JP>) 

IF  «EL<H).LE.EU)  THEN 
l 

181  JfrJM 

IF  (JM.GE.l)  THEN 

IF  «X(jm*CRaT(KP(JNm.OT.EL>  ELsX<JH)«C8<LT,KP<JN» 
IF'«X(JN)4CSNAX).GT,EU  GOTO  181 
ENDIF 
I 

183  MM 

IF  (JP.LEJ4)  THEN 

IF  <EU.ST.(X(JP)-CR(LT,KP<JP)»)  EteXUP) *CR<LT ,KP< JP) > 
IF  <EU.QT.<X(JP)'CfiNAX»  SO  TO  183 
ENDIF 
I 

185  IF  ((EMHUE.EU)  THEN 

NSUfeNSUBM 
IF  <NSU8,GT.1IR8)  THEN 
WfitTE<6(79a> 

CALL  EXIT 
ENDIF 

741  1  START  (NSU8}^*t 

ENDIF 
EN01F 

118  CONTINUE 

1  START  (NSU8*I)=NM 


■SOLVE  SU3PR0BLEMS 


DO  238  JS=1  ,NSL5B 
fC=ISTART<JS) 

ML*ISTAFT<JS+ i)-l 
Nm=NF-i 
CI8WN.8 
DOS  -W.NL 

IF  <CKMAX.LT .CR<LT ,KP<J)>)  CiW«-Ci(aT,KP(j)) 
CONTINUE 
NC=NL-NFtl 
IF  (NC.GT.58)  THEN 
WRIT£(6,7?7)NC 
CALL  EXIT 
ENDIF 

IF  <NC.LE.2>  THEN 
BFEAH.8 
NP=NF<1 

IF  (Y(NF)+CR(LT,KP(NF)) .GT.WH-W)  THEN 
IF  (Y<NF)  *CR(LT,KP<NF»  .6E,i©  GO  TO  122 
BFEAS=BFEkC+A<NF> 

NREP=NREP+l 

IREP(NREP)=NF 

AT£TAL=ATOTAL+A(NF> 

IF  (NC.LE.i)  GOTO  238 
IF  <Y<NP>*CR<LT ,KP<NP)> .LE.M4-M)  GO  TO  238 
IF  <Y<NP)-CR(LT,KP<NP».GE.W>  GO  TO  238 
BFEAS=BFEAS*A(NP> 

NR£P*NREP*i 

IREP(NREP)=NP 

ATOTAL=ATOYAL*A(NP) 

60  TO  238 
ENDIF 

IF  (NC.LE.I)  GO  TO  238 
IF  (Y(NP)+CR<LT,KP<NP>)  .LE.WWD  GO  TO  238 
IF  (Y(NP)-CR<LT,KP(NP)> .GE.W)  GO  TO  114 
ATQTAL=ATOTAUA(NP> 

BFEA$=BFEA8+A(NP> 

NREP=NREP+1 
IREP(NREP)=NP 
GO  TO  238 
XD=X(NF)-X(NP) 

YD=Y(NF>-Y<NP> 

01  ST=SQRT  <Xi)XX2*YDXX2>  -2  .BXCRCLT,  KP(NP) ) 

IF  (01ST.6E.M)  GO  TO  238 

IF  < < < Y<NF> ~CR< LT , KP<NF)  > )  .GE.W)  .AND. 

( (Y(NP) -CR( LT , KP(NP) ) ) . GE .N) )  GOTO  238 
AN1N*A<NF) 

ISAWS*N? 

IF  (A(NF).GT.A(NP))  JSfWE=NP 
IF  (A(NF).GT.A(NP))  «1IN=A<NP> 

ATOTAL=ATOTAl +ANIN 


C  -  24 


NREP=NREP+1 
1REP<NREP)=ISAWE 
BFEAS=8FEAS«AHIN 
GO  TO  238 

122  IF  <NC.L£.1>  GOTO  238 

IF  <Y(NP> -CR< LT ,KP<NP) ) . 6E .«)  GOTO  238 
IF  < Y<NP> ♦  CR< LT , KP<NP> > ,LE.<m-M))  GOTO  114 
GOTO  113 
ENDIF 
i 

X - CHECK  CLEAR  PATH 

I 

1  DO  2  J  =  1|NC 

IPSOL(J>=8 

2  CONTINUE 

CALL  CH£CK< I PSOL , 1 FLA6 ,X,Y , CR ,WX ,WY ,WR ,NC ,LI ST 1 ,L1 ST2 , IT , 
1  LT , KP ( CRMAX ,UM ,M> 

IF  <IFLAG.LE.8)  GO  TO  4888 
BFEASH.8 
60  TO  218 
K 

X - INITIALIZATION  FOR  IMPLICIT  ENUMERATION 

X 

4888  00  7581  K°!,NC 

IBEAS(K)=I 

icm?(io=i 

7588  CONTINUE 

X 

JLASTM 

ITER3! 

NREPC=I 

REP1** 

6FEAS*18«E2I 

X 

X - MWE 

X 

7888  JLAST=JLAST* 1 

lUNDERaJIAST 
IPSOL<JlAST)el 
REM$P*AWH*JIAST> 

X 

X - -TEST  2 

X 

IF  <K£P.GE.8FEAS>  GO  TO  7821 
X 

X - TEST  I 

X 

CALLCHECK(lPS0L,lFlA6(X,Y,CRtWX,  Mf  tHR,NC  ,USn*LIST2,n , 
1  LT,KP,C«1AXtl*,«) 

IF  (IFIAG.LE.I)  60  TO  7818 
BF£AS=R£P 


C  -  25 


DD  7836  K=t,NC 
IBEAS(K)  =  1PS0KK) 

7838  CONTINUE 
i 

i - -TEoTT  6 

* 

7828  IF  (NREPC.E8.JLAST)  GO  TO  78 
i 

I - BACtWARD  HOWE 

I 

NREPONREPC*  I  UNDER- JLAST *  I 
IPSOK  IUNDER)=8 
JLAST=1  UNDER 
REP=REP-A<NFM+JLAST) 

IF  (JLASUE.l)  60  TO  7818 
M=IUN0ER-1 
DO  7881  K=I,H 
L=IUNDER-K 

IF  <IPS0L(U.EQ.1>  THEN 
IWDEfclUNDER-K 
80  TO  7818 
ENDIF 

7848  CONTINUE 

7818  IF  (JWST.EQ.NC)  60  TO  7851 
teJLASm 
84ite*lM88.t 
DO  7861  K=H|NC 

IF  <A«*H*KUT.UttH)  RNINsATNRWC 
7848  CONTINUE 
7151  ‘(NNKMIUN  \ 

* 

j — — TEST  3 
i 

IF«ffil0.eE.8FEAS).OR.(JUST.EBaO)  60  TO  7628 
E 

I" - TEST  4 

1 

IF  UPSOKJtAST)  .£0.1)  GO  TO  7818 
00  7878  Kat,JLAST 
!C£fftP<K>s*lPSOL<10 
7178  CONTINUE 

CAU.  GHECK(lCQNP,IFlABtX«YtCRlK)CtUVlWfitNCfL3Sri(LIST2tlT, 
1  IT,KP,C88»(IT«,M) 

II 

* - TEST  5 

2 

IF  <!<HOE*.NE.JlAST>  THEN 
Mm 
OO  7861  K=H,NC 
ICOHP(K)  a  1 
7568  CONTINUE 
ENDIF 

7611  IF  URAS.1I.8'  GO  TO  7828 


GO  TO  7808 

71  AT0TAL=A707AL+BFEAS 

288  CONTINUE 

IF  <BFEAS.6T.8.0>  THEN 
DO  281  1=1  ,NC 
IF  <IBEAS<1).GT.8)  THEN 
NREONREP+l 
I  REP<NREP)  =NFM*  I 
B»IF 

281  CONTINUE 
-  ENOIF 
238  CONTINUE 

curo8. 

IF  <NREP.N£.8)  CUIOFLQAT<NSUB) 

RETURN 

797  F0RHAT<lH8t18X,49INlIiGER  OF  CRATERS  IN  SUBPRQGWN  EXCEEDS  58,  NO 
1  ,15) 

79S  FORMAT ( 1K8 , ttX,23HSU8PROBLEMS  EXCEED  1886) 

799  FORMAT  (1H8,18X,331M11BER  OF  CRATERS  EXCEEDS  51,  N*  ,15) 

END 

i  LAST  UPDATE  18/2311  JAN  84  FILEsSUBSS.M? 

XXXXXXXXXX’IXXXXXgXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SUBROUTINE  CH£CK{lN)IFLA0,X,Y,CR  HX,W,HR,NC,LISTllLIirT2,lT, 

1  lf,K!»,C8NAXll*,ii> 

i 

oikension  incno  ,it(no  ,kx<no  ,hy<no  ,nknc>  ,x<no  ,y<no  , 

1  CR<U,8),USTl<NC,UST2<NC)lKP(NO 

if 

COtmTAXI/Nm,fif,NL 

* 

JFLAOl 

JT=8 

00  4  JX»1,NC 
IP  <IN(JX).LT.l)  THfN 
JT=JT*l 
AWWWX 
tt«JT)=X(4J) 

'  MY<JT)aY<JJ) 

HP<JT)aCR(LT,KP(JJ)) 

ENOIF 

6  CONTINUE 

IF  <JUE,»)  RfcTO 
ITU)*1-! 

IF  <<MY<1H4R<  |».6E.W)  ITU)®! 

IF  <VMY<1XMR<  t)), $£.««-«»  1T(U*I 
IF  <1TU).LT.»>  THEN 
IFIAOI 
RETURN 
EVOIF 
4X=1 

18  JX=JXM 


C  -  17 


IF  (JX.6T.JD  RETURN 


; - m  WE  GET  OVER  JX? 

IF  «HY<JX)4HR(uX))  .LE.(1H-H)>  THEN 
IF  (IT(J5C1).br,8>  THEN 

j - DO  A*  ‘OVER-OVER' 

[ 

J«IN=WX<JX)-WR<JX>-C»«X-W 

i 

i - -CHECK  BACK 

E 

JTEMP=0»i 

13  »(TENP=JTEHP'l 

IF  (JTEMP.ffT.I)  THEN 
t 

I  - DOES  AN  'UNDER'  1NP1N6E  UPON  JX? 

( 

XO=HX(JX}-WttJTENP) 

YiWW<J)!>-Wi’<JTENP) 

D1  F=SC!!T<XDl<X2tYDXX?)  -WIlx'JX)  -NR(JTEHP) 

IF  <DIF.LT.IA>  THEN 
IF  <IT<JTIW)  .LE.I)  60  TO  12 
ENOIF 

15  IF  <VD«JT£HP>  .6C.)M1N.>  60  TO  13 

ENOIF 
M 

60  TO  U 
END  IF 
X 

X - -TRY  FOR  'UNDER-OVER' 

S 

II  JFLA68! 

CALL  BTnHN(J)01,JX,JT ,JFLA6*l<©(»WT|HR*LlSTtlLIST2|CfiH^X,I4A,M> 
IF  <JFIA8.6T*I)  THEN 
1T(JX)«I 
60  TO  11 
ENOIF 
ENDIF 
X 

X - CAN  WE  BET  UNDER  JX  ? 

X 

12  If  imM'Mm'i.UM)  THEN 

JFWfcj 
RETURN 
EN01F 

21  IF  <IT< JJ90.1T.  »>  THEN 

X 

I- - DO  AN  'INOIRHNDER' 

X 


[ - DOES  AN  'OVER'  IMPINGE  UPON  JX  ? 

! 

JTEMP=JXM 

17  JTENP=JTEMP-1 

IF  (JTEMP.ST.8)  THEN 
XD=MX<JX)-KX<  JTEMP) 

YD=«Y<JX>-WY<JTEMP) 

01  F»SQRT<XD3t»  2+YDX*2>  -HR<  JX)  -WR<  JTEMP) 

IF  (OIF.LT.W)  THEN 
IF  (IT( JTEMP) .GE.i)  GOTO  588 
ENDIF 

18  IF  <WX<JTtMP>  .8E  .XM1NX  GO  TO  17 
ENDIF 

1?  IT(JX)"8 

60  TO  18 
ENDIF 
X 

X — -TRY  FOR  'WER-UNOER' 

X 

14  JFLA8=2 

CALL  BETHN(JXM,JX,JT,JFLA8,W(|WY)WR|LIST1,L1ST2,CRMAX,WI10 
IF  <JFLA6,ST.8>  THEN 
IT<JX>=8 
GOTO  18 
ENDIF 
X 

X - BACKTRACK 

X 

581  JI=JX 

511  JI^JH 

IF  <J1.6E.1>  THEN 
IF  (IT(JI).LEJ)  GO  TO  581 
JX=JI 
J»NX-l 

IF  (JW.OT.I)  THEN 
IF  «HY<JX)*itt<JX».GEJ>  GO  TO  21 
GOTO  511 
ENDIF 

512  IF  <<KY(i)-WR(I)>.6EJ4)  THEN 

1T<1)S8 
GOTO  It 
ENOIF 
ENDIF 

929  IFLAfcl 


SUBROUTINE  BEMI(J»1,JX,JT,JFU»,NX,IW,HR,LISTIjLIST2,CI9WX,1«,«) 

* 

DIMENSION  HX(JT)  ,WY(JT>  ,HR(JT>  .LISTKJT)  ,LIST2<JT) 
l 

COH1CN  /TAXI/NFM,NF,NL 
i 

*  - (JFLA6.LE.  1)  IMPLIES  'UNDER-OVER' 

l  (JFIA8.6E.2)  IMPLIES  'OVER-UNDER' 

i 

KFLAJN1 

NLI=1 

USTK1)=JX 

NLT=1 

K=JX 

>M1N4C<(JX)-WR(JX)-CRMX-W 

l 

l - CONSTRUCT  'LiSTl'  IF  CRATERS  BEHIND  JX  IMPIN6ING 

*  DIRECTLY  OR  INDIRECTLY  UPW  IT 

i 

1  BNXN 

i 

i - DETERMINE  IF  KM  IMPINGES  UPON  K 

1 

2  IF  (HX(KM).GE.m  THEN 

DO  13  1X=1,NL1 

IF  (KM.EQ.11STKIX))  60  TO  3 
13  CONTINUE 

XWtt<KHD«Btt 

YWWdO-MYGiM) 

DI&>SQRT<X0XX24Y0MX2>  HffiC  »1>  -NROO 
IF  (OIS.LT.H)  THEN 

IF  ((JFLAS.LE.  1)  .AND.((NY(m)*NR(WO) .ST.(NHO))  SO  TO  999 
IF  ((JFlA6.6E.2}^ND.«UY(i9t)-Ml(IW).LTJO)  GOTO  999 
I 

i - DETERMINE  IF  KM  IMPINGES  UPON  M 

1 

XMOKttO-MKJXN) 

YM<Y<B<H<Y<JMO 

D1S»SC»(TOU»X2«YOXX2)  J»t> 

IF  <D16.LTaO  GO  TO  999 
TfNMCKBO-MfilBO-CRHAX-M 
IF  0MIN.6T.TEMP)  MilteTENP 
NLWH1M 
LISTKNLl>=B1 
EN01F 

3  BWOH 

IF  (KH.OT.I)  GO  TO  2 
ENDIF 

<  NLT=NLTil 


IF  <NLT.LE.NL1)  THEN 
K=L1STKNLT)  • 

BO  TO  i 
ENDIF 
X 

X - CONSTRUCT  'UST2'  OF  CRATERS  AHEAD  OF  JXH  IMPIN6IN6 

X  DIRECTLY  OR  INDIRECTLY  UPON  IT 

X 

5  NL2=1 

LIST2U)=JXM 

NLT=l 

K=J5tt 

XMAXmXOO+HRdO+CRNAXtW 

X 

I - DETERMINE  IF  KP  IMPINGES  UPON  K 

X 

7  KP=JX 

8  IF  <WX(XP)  .LE.m>  TH£tf 

DO  19  IX=1,NL2 
IF  <KP.Efl.LlST2(IX»  60  TO  9 
19  COHINUE 

XWtt(K)'MX(KP) 

YD=WY<K)”NY<KP) 

DIS=SQRT<XDXX2+YMX  2)  -HR<KP)  -MR<(0 
IF  (DIS.LT.M)  THEN 

IF  «JFIA8,LE.1).AN0.(<NY(KP)-WR(KP».LT.«))  BO  TO  999 
IF  «JFLA6,8E.2)maNY(KP)4NR(KP)).6T,(HHO»  60  TO  999 
X 

1 - DETERMINE  IF  KP  IMPINGES  UPON  JX 

I 

XWtt(KPH«<JX> 

YWff<KP)-WY(JX) 

0ISaS0RT  <X0XX2*YDXS2)  -W5(KPl  -Mft(  JX) 

IF  (DIS.LTJO  60  TO  999 
TENWW(KP)  *MR(KP)  <  CRKWN 
IF  OMAX.lT.TBH>>  JMAW01P 
NL2^L2+I 
LIST2<NL2)*KP 
ENDIF 

9  KMPH 

IF  (KP.LE.JT)  60  TO  8 
ENDIF 

II  NLT-NLTH 

IF  (NLT.LE*NL2>  THEN 
K*L!ST2<NLT) 

60  TO  7 
ENDIF 
X 

X - 0ETE8HINE  IF  LIST l  IMPINGES  IKN  L1ST2 

I 


I 


y 


f' 


<4*1 


C  -  31 


1888  DO  38  Kl=!,NLl 
L1=LIST  1<K1) 

DO  38  K2=*  1  ,NL2 
L2=LIST2(K2) 

DX=WX<Ll>-«X(L2> 

DY=«Y<L1)  -WT<L2> 

DIS=SQRT(0XXX2*0YXX2)  -MR(L1)  *HR(L2) 
IF  (DIS.L7.H)  60  TO  999 
38  CONTINUE 
60  TO  2888 
999  KFLA8=8 
2888  JFLAG=KFLAG 
RETURN 
END 


X 

CUfffiN/RAY2/SQUARE(988)  ,CfWX 


X 

X - INITIALIZE 


X 

DO  18  l=l,nw 
SQUARE! !)=l. 

II  CONTINUE 
SUN. 

SUNfN. 

X 

X - FIND  FIRST  AND  LAST  VALUES  OF  X  TO  CONSIDER 

X 

LJ=NAX1U.,(XU>-CRHAX«I.-XI» 

L2=NIN1<FL0AT<ITU  ,<X!KZ>*CRNAX+t.-XI)> 

J£1 

IN 

21  LK3 

X 

X - LOOP-ONE  SQUARE  AT  A  TINE  IN  X 

X  L3X  VALUE  AT  TOP  OF  SQUARE 

X 

DO  121  L*U,L2 
OXPM, 

JfcMN 

IN 

IF(JA.GT.KZ)  RETURN 
i 

X - IF  ALL  CRATERS  HAVE  BEEN  CONSIDERED,  RETURN 

X  LOOP-CRATER  6Y  CRATER. . .CONSIDER  ALL  CRATERS  WHICH 

X  COULD  POSSIBLY  INTERSECT  IN  X 
X 


DO  91  !=J4,K2 


NPI=NP<1) 

X  1=X( I) -CRTABtLT  ,NPI)  -X6 
IF  <Xi.LT.FLQAT<L-I»  60  TO  38 
X2=X(I)-CU«X-X8 
IF  <X2.6E.FU3AT<L»  GO  TO  186 
IF  <X1.GE.FLQAT<D)  60  TO  98 

-LEFT-HAND  EDGE  OF  CRATER  LIES  INSIDE  LTH  SQUARE 

DXP=FLOAT(L)-Xl 
60  TO  68 

-LEFT  HAND  EDGE  OF  CRATER  IS  BELQfc  X-SQUARE 
LOCATE  RIGHT  HAND  ED6E  OF  CRATER 

X1=X<1)4CRTAB<LT,NPI)-X8 
IF  <Xl.LE.FLOAT<L-l)>  80  TO  48 
IF  <X1.6E.FLMT<L»  60  TO  58 

-RIGHT  HAND  EDGE  OF  CRATER  LIES  INSIDE  LTH  SQUARE 

DXMl*FLQAT<D+l. 

GOTO  68 

-CRATER  I  LIES  ENTIRELY  LEFT  OF  X-S8WRE...N0  NEED  TO  CONSIDER 
THIS  CRATER  ANY  MORE 

X3=X<mCRW-XI 
IF  <X3.LE.FL0AT(L-D)  tWNI 
GO  TO  91 
0X1*1. 

-CRATER  INTERSECTS  X-SQUARE... CHECK  INTERSECTIONS  IN  Y 
YI*Y(l>-CRTA6(LT,NP!>-YI 

-Xi^lNDEX  OF  Y-SQUARE  C0NTA1NIN6  LtttER  EDGE  OF  CRATER  1 
KI=NAXt(l.,YHl.) 

-OWC  Of  Y-SQUA8I  OCCUPIED  BY  CRATER 

0NNIN!U.,FLM7<KI)-YI> 

SQUARE(KD»OUQ)(P*SQUARE<Ki) 

IF  (Kl.CQ.ITM)  60  TO  91 
KMIIM 

Y1*Y(I)4CSTA8(LTtHP))-YI 

K2=mNI<nH,IFIX(Yi» 

IF  <K2.£Q.!TH)  60  TO  78 
Q1=YI-FL0AT(K2) 


X - load  square  containing  top  edge  of  CRATER  I 

3E 

SQUARE(K2*  1) =D  i3t  DXP+ SQUARE  <  K24 1) 

X 

X - LOAD  INTERMEDIATE  Y-SQUARES, ,  .Dl=l . 

X 

71  DO  81  J=K1,K2 

SQUARE!  J)=SOUARE(J) +DXP 
88  CONTINUE 

98  CONTINUE 

X 

X - COUNT  SQUARES  THAT  ARE  AT  LEAST  HALF-FILLED 

X 

188  DO  118 

IF  <SQUARE!J).6E.8.5)  SIHP=SUMP+ 1 . 

SQUARE! J>=8. 

118  CONTINUE 

SIW=SUN*SINP 
X 

X - IF  THERE  IS  A  GAP  IN  X-UALUES,  SKIP  TO  NEXT  X-UALUE  NEEDED 

X 

IF  (DXP.LE.8.)  THEN 
IF  (M.NE.8)  THEN 
48PN=J64N 

IF  <J4PM.CT.KZ>  RETURN 
L3=  I  FIX<X(  JiPH)  -CRHAX-XI)  ♦  1 
IF  (L3.GT.D  60  TO  21 
LK*1 
GO  TO  21 
ENOIF 
ENOIF 
SUMP*8. 

128  CONTINUE 


stmmmmmmmmmmmmmmmmmrammmmm 

K  LAST  UPDATE  14/2298  34  FIIE:SUBS4,MP 

xixxxjExxxxxxxxxxxxxxxxsxxxmixxxxxxxxxxxxxxsxxxxxxxsxxxixmixxxmxxxs 

SUBROUTINE  REPAI R<MXP ,KZ ,M8 , IREPR , CRMftX , 113 ,FWREA ,NCP) 

St 

CM10N 


1  A0M< 1 12) 

,GPH7< 15) 

(NXPTCH 

,SSSA0M<112> , 

2  AMINO) 

,6PHTAC< 15) 

jSIGARPO) , 

3  APRAO) 

,8PHTS< 15) 

,S1GA3P<3), 

4  APRMINO) 

,LNHITS< 112) 

,NSANP1 

,S1GCRT(3) , 

5  AREP<3) 

,1CRAT(4) 

,PASS(I;32,4) 

,S16CTS(27) , 

4  ASTP(3) 

,ICUT<4,3) 

,PATT( 13,34) 

,S15FIL(27), 

7  C0UNTR< 112) 

,IH1T<3) 

,RAPF(112) 

,S1QHTS< 1 12) , 

8  CR1T( 112,2) 

,IPASS\32,2) 

,RCUT(112) 

,SIGNAF<  1 12) , 

9  CRTAB( 11,4,2) 

,IPAT<I2,4) 

,RH1T(112) 

,SNIM<4), 

&  DECARU12) 

,IPCUT<3) 

,SAPR(4) 

jENAPFLO) , 

1  DSTR<3) 

,SAPRA(4> 

,TGT(  112,5), 

2  ENAPFLO) 

,IPL(4I) 

,SA*JF<  888 ,3) 

,XC(3) , 

3  6PADACT 15) 

,JSAW(888) 

,SGAPR(4> 

,YC<3), 

4  BPAON(IS) 

,ITBT< 112,3) 

,SGAPRA<4>, 

5  6PADNSU5) 

,12CUT(4) 

,S6CRAT(4) , 

4  6PAREA< 15) 

,KH<3) 

,SGN1NA<4) 

NREP=NINI(KZ,KXP> 

IF  ((©EP.EQ.9)  RETURN 

Kl=8 

K9*K2 

KTYMIOOt  IREPR,  11) 

IF  (KTYP.BT.I)  THEN 

IF  <<SAWS<t,3),LT.FL0AT<I13>).0R.(inTP,EQ.2»  THEN 
IF  (<SAM£< 1,3)  ,BT.FLQAT(II3)>  .AND.OCTYP.EQ.2))  RETURN 
DO  II  0=»l,KZ 

IF  (SAU£<J,3).BT.FLOAT(113))  GO  TO  21 
IF  (SAWE(JI3).LT.FIMT<II3)>  Kl«J 
CONTINUE 
KW-I 
ENOIF 
END1F 

KNHNKK9,NI(EP«KI) 

IF  (R9.1T.K1)  THEN 
IF  (KTYP.EQ.2)  RETIBN 
Kl*f 
K9=KZ 
GOTO  31 
ENOIF 

l=lFlX(Sd£<KI,3>*,ll) 

IF  (N4SEA.EQ.I)  SWfeANlN(l) 


IF  <K9.LT.KH<L»  THEN 
SWM9-KH1 
IF  (NAREA.EQ.8)  THEN 
IF  <SUMR.LE.FL0AT<KH<L)-K9>)  THEN 
SUMR=8. 

CALL  0VLAP<SAWE<K1,1)  ,SAWE<K1,2)  ,CRTAB,1TGT<L,2)  ,ISAW<K1' , 

1  XC(L>-CRIT(L, 1) ,YC(L) , IFIX<CRIT(L, 1>) , 

2  IF1X(CR1T<L,2))  ,K9-K  1*1, SHIR) 

GO  TO  68 

mm 

51  J=K9+1 

SU1R=8. 

CALL  OULAP  <SAVEf J,l) ,SAVE(J,2) ,CRTAB,IT6T<L,2> ,1SAW(J) , 

1  XC(L) -CRIT <  L , t> -2 . XCRhAX ,YC( L) -2 .  iCRHAX , 

2  IFDKClUTa.  1>44.!GBM90  tIFlX(G8ITal2>44.XCinAOO , 

3  KH<L)-K9,SiWR> 

SUNR=AH1N(L)-SIMR 

ENDIF 

ENOIF 

68  AR£P(L)=AREP(L)+SUNR 

S3GARF(L)=SI6ARP(L)4SUffil3f2 
K5=tHN8<K9fKH(U>M 
DO  78  J=K5,N8 
JHUJ-K5 
SAWE(JI,I)=SAME<J,I> 
m(Jl,2)=S«WE(J,2) 

SAW£<JI,2)=SAV€<J,3) 

ISNMIMMKJ) 

71  CONTINUE 
N5=K5H<i 
NREP*NREP-K5 
NXNKMfl 
K2=KM3 
NMH-K5 
DO  88  J*t(NCP 
.  HKJ)*RR(JH3 
88  CONTINUE 

IF  «NREP,EQ.8).OR.(K2.EQ.I))  RETHN 
IF  <S/WEIXl,3) .f£,FLQAT<l)>  THEN 
IF  (KTYP.ESL2)  RETURN 
KN 
KMl 
SO  TO  3) 

awir 

i 

i - REPAIR  HITS  CN  APPROACH  FOR  LTH  TARGET  --  IF  APPROPRIATE 

II 

91  DO  !8I 

IF  (SA0E(J,3)  J«.FL»Ta))  SO  TO  III 
!F<J-KI4l.Srr.HREP>  SOTO  til 
IT6TTP=ITG7<L,2> 

JNPNTP»ISAV(J) 

IF  (NAREA.EQ.8)  SU«=SII«M.IC8TAB<lTGlTP,^WTPf  1)112 


188  CONTINUE 
118  K5=J-K1 

HR17E<13,158)Kl,K2,H8,J)(SAyE(KK,l)  ,SfW£(KK,2)  ,SAVE(KK,3)  ,KK=1,M8) 
00  128  J1=J,H8 
KM1+J1-J 

SWE(KK,1)=SAVE(J1,1) 

SWE<KK,2)=SAVE(J1,2) 

SAyE<KK,3)-SAWE< J1 ,3) 

1SW(KK)=1SAW<J1) 

128  CONTINUE 

IF  <NAREA.EQ.  1)  S0NR=K5 

WRITE!  13, 168) K5 

NREP=NREP-K5 

HXP=NXP-K5 

K2=K2-K5 

N8=H8-K5 

L=U1 

IF  (L.LE.NCP)  THEN 
DO  131  J=L,NCP 
KH'J)=KH(J)-K3 
!3I  CONTINUE 
ENDIF 

141  IF  ((NREP.E8.I).0R.(K2.EQ.I))  RETURN 
IF  (KIYP.EQ.2)  RETURN 
Kl=8 
KMZ 
GOTO  31 

151  FORMAT  <4H  K1  *  ,J3,4H  K2  a  ,I3,4H  N8  =  ,14, 5H  J  »  ,14,8II(/IX,3F1 

12.2)) 

141  FORMAT  <4IH  NUMBER  OF  CRATERS  FILLED  ON  APPROACH  ■  ,14) 


SUBROUTINE  RESITS 


* 

CHARACTER  NAME3E4 

* 

D1HENSSIJN  PRU 15)  ,PR2<  15)  ,PR3(  15)  ,PR4<  15)  ,PP5(  15)  ,PR4<  15) 


COKtflN 

1  A0H<I12) 

, BPHT  < 15) 

jMXPTCH 

,SISADN\112) , 

2  RHINO) 

,GPHTAC(15) 

,SI6ARP(3), 

3  APRAI3) 

,GPHTSU5) 

,S1GASP(3), 

4  APRNIfO 

,INHITS(112) 

jNSANPl 

,SIGCRT(3>, 

5  AREPO) 

,3CRAT(4) 

,PASS(8;32,4) 

,S1GCTS<27), 

4  ASTP(3) 

,ICUT<4,3) 

,PATT(13,34) 

,SIGFIL<27), 

7  C01WTR<112) 

,1H3T<3) 

,RAPF<112) 

,SiGHTS(112) , 

8  CRm  112,2) 

,IPASS<32,2) 

,RCUT< 1 12> 

,SIGNAF<  1 12) , 

?  CRTAB( 11,4,2) 

,IPAT< 12,4) 

,RH1TU12) 

,SMINA<4) , 

&  DECART  112) 

fIPCUT('3> 

,SAPR(4) 

,sNAPFL<3>, 

1  DSTRT3) 

,SAPRA<4> 

fTGT<  112,5), 

2  ENAFFK3) 

,IPL<48> 

,  SAVE(tJ88 ,3) 

,XC<3), 

3  6PADAC( 15) 

,ISAW(888) 

,S8APR(4) 

,YC(3) , 

4  6FADN< 15) 

,1701(112,3) 

,S8APRA(4) , 

5  6PA0NS(  15) 

,12CUT(4) 

,  SSCRAT  <  4) , 

4  6RAREAT 15) 

,KH(3) 

,SGNINA(4) 

l 

C(MN/ENO/N&WP,NELT  ,NT8PS  ,NCP,CRMIN,APPRCHcNAREA 
l 

CSftON/ JGHi/NFlAS  1  ,NFLAB2  ,MAX  ,NSAHPR ,  2ALPH, ERROR  ,NSAHP2  ,NFLAB3 

1 

WME='  NO' 

SAMPL=  1  ./FLOAT  <NSAiiP) 

SAHPMLGATWSAftP'l) 

00  18  I=1,NT6PS 
6PAREA<I)=8. 

GFftfiNUM. 

8PHT<1)»8. 

18  CONTINUE 
CT=8. 

00  38  l~l,NELT 
IF  (COIHTRai.fiT.CT)  THEN 
LCOUNT=L 
CT=C01NTR<L) 

EN01F 

IT5T6P=lTGnra,3> 

6PHT ( IT5TQP>=6PHT < ITGTSP) ♦COUNTR(L) 

SPACNl  ITGTSP) =PPADH<  I7BT6P)  *A!)N(l) 

QPAREA<  ITGT6P>=*6PARFA<  ITGTGP)  +TGT<1 , 4)  XT8T(  L  ,5) 

38  CONTINUE 

CONF9#*SI6HTS<LCOUNT)  -  5¥#+PL)(  CCHKT  R  <  LCOUNT)  *2  2 
CCNF9N8M  <  CQNF98/SAMP0) 

COW98=2.5?<l(CONF9lli80RT(SAHPL) 

WR  ITE<  13 ,248)NSAHP ,  C0NF98 ,  LCOINT 
C0NF98*  1 .645ItCCNF9#/2 . 576 


C  -  38 


WRITE! 13,258) C0NF98 

IF  <NFLA63.E8.  i«AN0>.NS^HP.GE.28S)  WRITE<  13,498) 
18=6 

46  IA=IB-*1 

I  B=MIN8  <  IA+  44  ,NELT> 

KN=IB-IA+1 

MRITE< 13,266) <K,K=IA,IB> 

DO  58  K=i,KM 
L=K+IA-1 

PRKK)=SfiMPL3£COlNTR<L) 

PR2(  K) =SI  GHTS<  U>  -SAMPLXCQUKTR<  D  X  3£  2 
PR2<K>=SQR7<PR2<K)/SAfiP0) 

PR3<K)=SANPUtADM(L) 

PR4<K>-S1SADM<L)  -SAMPL3EADM<L)  112 
PR4(K>=SQRT<PR4<K>/SAMP0) 

58  CONTINUE 

MRITE<  13,278)  <PRKK)  ,K=1,KM> 
WRITE(13,288)<PR2<K) ,K=i,KH) 

IF  (NAREA.E9.8)  MRITE< 13,298) <PR3<K> ,K»1,KN) 

IF  (NAREA.EQJ)  WR1TE<  13,318)  <PR4<K>  ,K=  1  ,!W 
WRITE!  13,318)  (ITffKK, 3)  ,K=IA,IB) 

IF  (IB.LT.NELT)  80  TO  48 
WRITE! 13,321) 

18=8 

48  IA=IB*l 

I5=NIN8<IA-H4,NTBPS) 

BPIB-IAX 

WRITE! 13,338) (K,K=IA, 18) 

00  71  Kal,KM 
1=K4IA-I 

PR  1 !  K)=GPHTS<  U  -S«1PIX8PKT!U  XI2 
PRl!X>aSQRT!PRl!K)/SAf1P(5) 

8PHT!L)=SAHPU6PHT<U 
PR2!K)=8PA0HS!L)  -SAMPU^WU  UZ 
PR2!K)=8SRTiPR2(X)/SA^35 
8PAON<l)3SAHPt)i8PAOM<U 
6PAR6A!UB8PAi)H(l)/GPAREA!U 
78  CONTINUE 

WRITE!  13|27IXG?(fT<K)fKaIAf  IB) 

WRITE!  13,288)  !PRI<K),Ka  l,  BO 
IF  (NAREA.E8.8)  THEN 
WRITE! 13, 298><6PA0N<K) ,KaIA,I9> 

WRITE!  13 , 388)  (PR2! X)  ,K= I ,KN) 

WRITE!  13,349)  (OPAREAd!)  ,K*IA,IB) 

IJ40IF 

88  ;F  ! IB.LT JHGPB)  GOTO  48 


C  -  39 


IF  (NCP.GT.8)  THEN 
WRITE<  13,358)NfiME 
DO  128  1=1, NCP 
PRK  l)=SAMPUERCirr<L) 
PRl(2)=SQfiT<(PRl<l)-PRl(l)!lJ2»(SfiNPU 
PR  1  ( 4)=$1  8CRT(L>  -SAMPLE  RHIT  (L)  El  2 
PRK4)=SQRT<PRK4)/SANP0) 

PRK3>=Sm*RHITa> 

PRK5)=SflNPLKASTP(L) 

PR  K4)=SI6ftSP(L)  -SWLKASTPd)  SEE2 
PRK8)=SQRT4PRK8)/SAfiPQ) 

PRK7>=SWMPLXAREP<L) 

PRK8)=SIGARP<L)-SflHPL3(AkEP<t))S3(2 

PRK8)=$QRT<PRK8)/SANP0) 

PRK  12)=SIGNAF(L>  -SAMPLXRAPF  <  i  J  m 
PRK  12)=SQRT<PR1(  12)y  SAMPO) 

PRKll)s8flNPUiRAPF(L> 

PR  K  18>«9W*FL<L>- -SW4PLXENAPFUU  50(2 
PR  1  <  1I)=SQRT  ( PR  K 18)  /SflNPO) 

PRKWaSAMPUEMPFLa) 

IF  (WREA.EQ.l)  THEN 
?RK5)=1.E2I 
PRKO=I.E2l 
ENOIF 

91  IF  (HXPTCH.EB.R)  THEN 

PRK7)=1.E28 
PSK8)=l.E2l 
ENOIF 

188  IF  < APPRQ4.LT.  1.)  THEN 

PRK?)=1.E2» 

PRKl8)=t.E28 
PRK  1 11=1. E28 
PR!(12)=t.E2» 
f'j)lF 

1 18  MR1TEC  13,388)1, CRIKl,  1)  ,CR1T<L,2> ,  (PRKK)  ,K*  1 , 12) 

.128  (MINUS 

IF  (NCP.ST.l)  THEN 
KRlTEt 13,378) 

1ELI«1 
IEt2=2  * 

1CPM4CPM 
DO  178  tU»l,NCPI 
KK*4-KJ 
00  131  1=1,3 

OSTR<L)=SAHPUFLOATUCin<KJ,U) 

IF  <KK.6T«I>  0STR<KK)=t.E2l 

131  CONTINUE 

PfiKl)=SArtPl*FLBAT(I2CUT<KJ)> 

PRK2)=S0RT(SAHPU(PRKI)-PRKl>a2)> 

PfiK4)=FLQAT(ICflAT<KJ)> 

PRK3)=8ANPUPRK4) 

PR  K  4)=SGCRAT(KJ) -SAHPLIPR 1(4) X12 
P8K4)“S8RT(PRK4)/SAHP0) 
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PR  1  <  5) =SAMPL5ESMINA<  K J> 

PRt(4)=SSMINft(KJ)-SflMPUSMINft(KJ)H2 

PRK6>=SQRT<PRH4>/SAMP0) 

PRH?)=»am3ESAPR<KJ) 

PR 1<8)=SGAPR!KJ)  "SPHPLISAPR'KJ)  112 
PRU8)=SQRT!PR1!8)/SAHP0) 

PR  It  9>=SAMPU£SAPRA<  K  J) 

PRK  18)=SGAPRA!KJ)  -SAMPL*SAPRA<KJ>  U2 
PRt<18)=S&rT!PRl!10)/SAHPO) 

IF  !NAREA.EQ.l)  THEN 
PR1(5)=1.E28 
PR1<6)=1.£28 
ENDIF 

MS  IF  <APPRCW.LT,  1.)  THEN 

PRK7>=1.E28 
PR1!8)=1.E28 
PR1!9)=1.E23 
PR1UI)=1.E28 
ENDIF 

158  IF  (KJ.LT.4)  THEN 

IF  <KJ.EQ.2)  IE12=3 
IF  (KJ.E0.3)  IELl=2 

WRITE!  13,488)JEU,IEL2)CRIT<1EU,1),CRIT(IE12I2),(PRKK) 
1  fc=l ,6)  ,<DSTR<!0  ,KC1,3)  ,(PRl!iQ  ,K=7, 18) 

IF  (NCP.EQ.3)  GO  TO  178 
80  TO  188 
ENDIF 

168  WRITE!  13,388)CR3T<l,l>,CRn<l,2),(PRl<i(),l<=l,6),<DSTR(K> , 

1  fc*t,$),(P81!K>,K*7,ll> 

171  CONTIS 

EN01F 
ENDIF 

189  IF  (IV.BT.S)  WRITE! 13,398) 

LV=I 

00  191  L»1,NELT 

IF  <!lTST!L,I),£a.l>m<CRn<l,i).LT.l.))  THEN 
IWI 
iPtav>«L 
ENDIF 

198  CONTINUE 

IF  <W,ST*8)  THEN 

188  M*  1 

HHUN8(1A»M,IV) 

HfelB-lAM 

I^ITE!  13*4«0)  ,K«IA,J8> 

1 - NON-^iSl  ST^NOARO  SUBSCRIPTS  HAY  REQUIRE  AWUSTNENT. 

«RITE<  13,4 10  <TST<  IPt  <K>  ,5) ,  K*IA,  18> 

WRITE! 13,428) (CRIT!IPL!K) ,2) ,K=IA,IB) 


DO  218  K=l,KM 
L-K+IA-l 
IPLL=IPL<L> 

PRltK)=SAMPLXRCUT<IPLL> 

PR2(SO=SI6CTS<U  -SWPURCUK IPLU  »2 
PR2(K>=SQRT  !  PR2!K)/SAMP0) 

PR3(K)=SflMPUtRHIT<IPLL> 

PR4<K)=S16F1L<L) -SAMPL*RHIT!1PLU  MX 
PR4<K)=SQRT<PR4<IO/SAMPQ> 

PR^<10=SAHPL3tRAPF  <  1 PLL) 

PR5<K>=SISNAF(IPLL)  -StfffUfRAPFUPLL)  m 
PR5(K)=SQRT(PR5<K>/3lflMP0> 

218  CONTINUE 

WRITE! 13,438) (PRl(K) ,K=1  ,KM) 

WR1TE< 13, A48>  <PR2(K> ,K— lfKH) 

WRITE! 13,458) !PR3!K>,K=1,KM) 

WRITE! 13,448) (PR4!K)  ,K=1,KM) 

IF  <NAREA.EQ.8)  THEN 
WRITE!  13 , 468K  PR6!  K) ,  K- 1 ,  KN) 

WRITE!  13,478)  (PR5!K>  ,K=  1  ,MO 
ENOIF 

228  IF  U8.LT.LV)  80  TO  218 

ENOIF 
RETURN 

248  FORMAT!  IX,'NSAHP  =',I5,5X,'C0NF  IHTE1SJWL  FOR  99K  LEVEL  3',F7,3, 
12X/F0R  TOT  ELT  =',I5> 

251  FORMAT! I8X.29HC0NF  INTERVAL  FOR  98X  LEVEL  =,F7.3) 

268  FOfWAT!  1H8, IX,  11HTST  ELEMENT,  1518) 

278  FORMAT!  IX,  12HEXP  NO.  HITS,  15F8.3) 

268  F0mAT(SX,5HSIGNA,15F8.3) 

298  FORMAT!  IX,  12HEXP  AREA  DAH,15F8.8) 

318  FORMAT! OX. 5H8IGNA, 15FS.I) 

318  F0RMAT!2X,IINTGT  OP.  N0..15IB) 

321  FORMAT!  lH8,131flAR6ET  BROW’S) 

331  F08NATUK8, IX, 11NT6T  DP.  NO.,1518) 

348  FORMAT! IX, 12HEXP  PER.  DAM, 15F8.3) 

351  FORMAT  ( lH8(4X,3IHfOR  RUNWAYS  AND  NUOR  TAXMYS,/8X,3HTBT,4X,31MC 
1L,2X,3HHCW,3X,4HPR08,2X,5HS1(HA,S(,4HEXP  N0,3X,5HS!6KA,3X,8REXP  AR 
2EAl3Xl9KSIQiAl3Xl4NEXi>  ,A4,aX(9H8IGHAl3Kl8HEXP  APPR,3K,5HSia«,3X, 
38HEXP  APPRI3X,5HS1GHAI/8X,3H£LT,  1<X,3HCUT,8X,7HCMTERS,  15X,41!F1LL, 
4 ISX, MILLED,  12X.71W  CRAT,I5X,4HFIL0 
368  F0SHAT<8X,I3,F7,|,F5,I,2F7.3,2F8«3,4X,F7.I,IX,F7.8,4X,P7.8,1X,F7. 
ll(3X,F8.3,lX,FB.3,3X,F8.8tlX(F8J) 

378  FORMAT  ! 1M,4X,29HCQNIUNED  PROBABILITIES  OF  CUT,/77X, 12HDSSTR3BUT1 
10N,/75X,16N11NlfflJH  CRATERS, /8X,3HTGTl4X,at!CL,2X,3mCW,3Xl4H},R08( 
22X,SHSI(>W,2X,4HD(P  N0,3X,5HSIBtt,3X,8HEXP  AREA,3X(SHSIGHA(4Xt3<3H 
3£LT,3DO  ,8F£XP  APPR,3X,5HSISHA,3X,8HEXP  APPR,3X,5HSia«,/7X,4HELTS, 
416X,3HCUT,8X57HCSATERS, 15X,4HFIIL, 13X, IHl,5X, 1H2.SX, 1H3,5X,71K0  CR 
5AT,15X,4HFILL) 

381  F0RWT(6X,5H1^3,F7.8,F3.8,2F7.312F8.3,4X,F7.8,IX,F7.8,3X,3<F5.3 
1,1X)  ,1X,2F0.3,3X,2F8.I) 

398  FORMAT!  1KI.4X,  18HF0R  MINOR  TAX1I4AYS) 

411  FGJHAT! IKS,  13X,  14HTASGCT  ELEMENT,  1517) 
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418  FORMAT! 14X, 12HTAR6ET  WIDTH, 15F7.8) 

428  FORMATS, 19WININUN  CLEAR  WIDTH,  15F7.8) 

438  FORMAT < 5X , 23HEXPECTED  NUMBER  OF  CUTS,15F7.3) 

441  F0RMAT!23X,5HSIGMA, 15F7.3) 

458  FORMAT ! 4X ,24HEXPECTED  CRATERS  TO  FILL, 15F7.3) 

441  F0RMAT(7X,21HEXPECTED  AREA  TO  FILL.15F7.8) 

478  F0RMAT(23X,5HSIGMA, 15F7.8) 

488  F0RMAT<SX,ll,lHi(,Il,F7,8,F5.8,2F7.3,2F8.3,4X,F7.8l!X,F7.8,3X,3(F5. 
13, IX) , 1X,2F8.3,3X,2F8.8) 

498  FORMAT!  1H  ,'NSAMP  LIMITED  TO  LEAST  OF  VALUE  INPUT  OR  NUMBER  NEEDED 
=  TO  GIVE  SPECIFIED  QUALITY  TO  PROBABILITY  OF  CUT.') 


SUBROUTINE  NCQMP 


X 
X 

X - THIS  ROUTINE  IS  ENTERED  TO  CALCULATE  THE  MINIMUM  SAMPLE  SI2E 

X  OF  MONTE  CARLO  ITERATIONS  TO  61VE  A  SPECIFIC  CONFIDENCE  LEVEL 
X  AND  INTERVAL  FOR  THE  PROBABILITY  OF  CUTTING  A  TAKEOFF 
X  SURFACE.  IT  CAWOT  BE  ENTERED  UNLESS  NFLAG3  IS  SET  IN  MAIN 

X  PROGRAM  AND  NSAMP  SPECIFIED  AS  GREATER  THAN  288. 

X 


comoN 

1  A0MU12) 

,5PHT(15) 

jNXPTCH 

,S1GADM<112), 

2  AMINO) 

iGPHTAC<  15) 

,SIGARP(3) , 

3  APRAO) 

,6PHTS( 15) 

,SIGASP<3) , 

4  APRNINO) 

,LNHITS( 112) 

(NSAHPi 

,SIGCRT(3) , 

5  AREPO) 

,1CRAT(4) 

,PASS(8:32,6) 

,SISCTS(27) , 

6  ASTP(3) 

,ICUT(4,3) 

,RATT(  13,34) 

,SIGFIL(27), 

7  C0UNTRO12) 

ilHITO) 

,RAPF< 1 12) 

,S1GHTS( 112) , 

8  CR1T( 112,2) 

,IPASS(32,2) 

,RCUT(112) 

,SIGNAF(tl2) , 

9  CRTABO  1,6,2) 

,1PAT<12,4) 

,RH1T<112) 

,SMINA(4) , 

&  DECAR012) 

,1PCUT(3) 

,SAPR(4) 

,SNAPFL(3), 

I  DSTRO) 

,SAPHA(4) 

,TGT<  112,5), 

2  ENAPFLO) 

,IPL(48) 

,SAME(888,3) 

,XC(3) , 

3  6PA0ACO5) 

,1SAW(88I> 

,S6APR(4) 

,YC(3) , 

4  6PADH(15) 

,ITGT( 112,3) 

,S8APRA(4) , 

5  6PACMS05) 

,I2CUT(4> 

,SSCRAT(4), 

6  GPAREA05) 

,KHO) 

,SmiNA(4) 

X 

C(HCN/EN0/NSANP21NELT,NT6PS,NCP,CRM1N,APPRCH1NAREA 

X 

CONKNAJOJU/NFIAG 1  ,NFLA62  ,NNAX,NSAMPR  ,2ALPH  t  ERROR  (NSAMP  ,NFLA63 
X 

DIMENSION  PRO) 

X 

X - CALCULATE  AW)  STORE  IN  A  MATRIX  THE  PROBABILITY  OF  CUT  FOR 

X  EACH  TARGET  ELEMENT,  USING  THIS  PATTERN* 

X 

IF  (NCP.QE.l)  THIN 
IF  (WLPH.LT. I. d45)  ZALPH*U45 
IF  ((EHLOR.GT .1.13)  .OR. (ERROR.LT >8.8181))  ERRWM.85 
00  11  'M'NCP 
Pfi(J)sRCUT<J)/FUiAT(NSAMP) 

18  CONTINUE 

X 

X - INITIALIZE  A  LOOP  TO  FIND  THAT  PROBABILITY  OF  CUT  CLOSEST 

X  TO  6.5.  THIS  MAXIMIZES  REQUIRED  SAMPLE  SIZE  FOR  HORST  CASE 
i  TARGET  ELEMENT  AW)  ATTACK. 

X 

SHALL=A8S(PR(l)-8.5) 

!X=l 


i 

i - LOOP  TO  FIND  PROBABILITY  OF  CUT  CLOSEST  TO  8.5 

S  AND  RECORD  IT  AS  PKNUM. 

3E 

DO  28  J=1,NCP 
SHALL 1=ABS( PR( J) -8 . 5) 

IF  tSHAlLl.LT.SNALL)  THEN 
IX=I 
JX=J 

SKALL=SNALLi 

ENOIF 

28  CONTINUE 

PKNUN=PR(JX) 

NLH=8 

It 

i - IF  PKNUH  IS  VERY  CLOSE  TO  2ERO  OR  ONE,  THE  STATISTICS 

*  COLLAPSE  NGNTE  CARLO  ITERATIONS  TO  A  VERY  SHALL  NLHBER. 

i  THEN  CALCULATION  OF  ADDITIONAL  1TEMTIONS  TO  RUN  OR 

It  RETURN  TO  THE  NONTE  CARLO  LOOP  SHOULD  NOT  BE  CONPLETED. 

J  THIS  ACCOMPLISHED  BY  SETT1N6  NFLA8I. 

It 

IF  «P»«H.GfT.8.8889).AND.(PmUH.LT.8.9995))  THEN 
It 

*  - CALCULATE  TOTAL  SAMPLE  SHE  TO  ASSURE  CONFIDENCE  LEVEL 

It  AND  ERROR  INTERVAL. 

X 

SSUE=PWUN)t(|.-PtttUN)jt((2ALPH/ERR0R)Ki(2.) 

NUfcSSHE*!. 

i 

l - TEST  IF  MORE  ITERATIONS  REQUIRED,  SET7INS  APPROPRIATE  FLA6S 

1  WHETHER  TO  RETURN  TO  THE  NONTE  CARLO  LOOP.  IF  SO,  SET  LOWER 
I  AND  UPPER  NOTE  CARLO  LOOP  UNITS. 

It 

IF  (NUH.LE.NSAHP)  THEN 
NFIAGN 
RETURN 
asE 

NSANPfrNSANP4| 

NFLASM 

IF  (NW.LT.HWt)  THEN 

NSAHP=NtH 

ELSE 

NSANWIWt 

ENOIF 

RETURN 

ENOIF 

ENOIF 

ENOIF 

95  NFLAGt=l 
RETURN 
END 


G  -  45 


APPENDIX  D 


SAMPLE  DATABASES  tttID  INPUT  FILE 


Sample  Target  Database 


2 

4509.8 

4006.0 

1500.0 

4000.0 


0.0 
50.0 
2593. 0 
58.0 


n 


60.0 


9800.0 


5999.9 


200.0 


150.0 


0" 


Variable 


a  -  number  of  target  elements  NELT 
b  -  number  of  target  groups  NTGPS 
c  -  minimum  width  required  to  taxi  aircraft  (0=no  taxi  search)  NPPRCW 
d  -  flag  to  compute  overlapping  craters  <0  =  compute,  1  =  do  not)  NAREA 
e  -  target  element  t  center-point  x-coordinate  TGT<1,1) 
f  -  target  element  1  center-point  y-coordinate  TGT(1,2) 
g  -  target  element  1  aairauth  of  primary  axis  (orientation)  TGT<1,3> 
h  -  target  element  1  length  TGT(1,4) 
i  -  target  element  1  width  TGT(l,5> 
j  -  surface  code  <0  ®  non-surface,  1  «  surface)  1T6T<1,1) 
k  -  target  element  1  hardness  code  (crater  table  index)  ITGT(1,2) 

1  -  target  group  of  target  element  1  1TGT(1,3) 
m  -  minimum  clear  length  (MOL)  for  target  element  l  CR1T(1,1) 
n  -  minimum  clear  width  (HCW)  for  target  element  1  CR!T(!,2) 
o  -  target  element  2  hardness  code  (crater  table  index)  ITGT(2,2) 
p  -  number  of  TOL  surfaces  NCP 
q  -  number  of  taxi  surfaces  LV 
r  -  total  number  of  hardness  codes  NHARD 
s  -  number  hardness  codes  for  surfaces  NHARDP 
t  -  number  of  patches  available  MXPTCH 
u  -  repair  priority  code  IREPR 


Sample  Weapon/Attack  Patter a  Database 


25. 5U  15.6 


300. 0q  I50»0r  30.0S  30. 0*  0.0U  0.0V  0.0W  0.0X  0.??0X  S.0003 


-150,0 

“100.0 

“50.0 

50.0 

100.0 

150.0 


10. 0l 
-1C.0 
10.0 
>10.0 
10.0 
>10.0 


a  >  total  number  of  hardness  levels 
b  >  number  o f  hardness  levels  for  pavements 
c  -  number  of  weapons  defined 
d  “  hardness  1,  weapon  1  dtny-TOL  crater  size 


Variable 
NHARD 
NHARDP 
NWPN 
CRTA8< 1,1,1) 

e  -  hardness  1,  weapon  2  deny-TQL  crater  size  CRTAB< 1,2,1) 

f  -  hardness  1,  weapon  1  deny-taxi  crater  size  CRTABC 1, 1,2) 

9  >  hardness  1,  weapon  2  deny-taxi  crater  size  CRTAB< 1,2,2) 

h  >  hardness  2,  weapon  1  dtny-TQL  crater  size  CRTAB(2,1,1) 

i  -  hardness  2,  weapon  2  deny-TQL  crater  size  CRTAB<2,2,1) 

J  >  hardness  2,  weapon  1  deny-taxi  crater  size  CRTAB<2, 1,2) 

k  -  hardness  2,  weapon  2  deny-taxi  crater  size  CRTA8<2,2,2) 

l  -  number  of  attack  patterns  defined  NPATT 

m  -  number  of  weapons  in  pattern  IPAT<1,1> 

n  -  number  of  submunitions  in  weapon  IPAT(1,2) 

o  >  weapon  code  (crater  table  index  number  identifying  weapon)  IPAT(i,3) 

p  >  pattern  shape  <6»gen  purpose, t»rec  C8U,2»elip  CBU,3»guided)lPAT( 1,4) 

q  -  range  delivery  error  standard  deviation  PATT<1,1) 

r  -  deflection  delivery  error  standard  deviation  PATT<1,2> 

s  -  range  ballistic  error  standard  deviation  PATT(i,3) 

t  -  deflection  ballistic  error  standard  deviation  PATT<1,4) 

u  -  CBU  half -pattern  length  PATT(1,5) 

v  -  CBU  half-pattern  width  PATH  1,6) 

w  -  CBU  half-void  length  RATH  1,7) 

x  -  CBU  half-void  width  PATT<1,8) 

y  -  munition  fuze  reliability  PATT<1,9) 

z  -  submunition  fuze  reliability  PATH  1,18) 

A  -  munition  range  coordinate  relative  to  center  of  stick  PATH  1,11) 

8  -  munition  deflection  coordinate  relative  to  center  stick  PATH  1,12) 
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Sample  AAPMSN  Output  File/AAPMOD  Input  File 

512597745? 

288.  280 C 


0U  .8508’ 


1.645 


f 


29 

4580. 8k 
4000.0s 

1500.8 

4000.8 

‘5 

8.0; 

58. a' 
2598.0 

58.0 

8.0m 

68.0 

0J 

9800. 8n  200.0°  1° 

5999.9  150.0  1 

lq  lr 

2  1 

2U  6V 

1W 

6X  ly 

1Z  0A 

300. 0B 

150. 0C  30.0° 

30. 0E 

0.0F  0.0S  0.0H  8.01  0. 

999 J  0.000K 

-150. 0L 
”100.0 
-58.0 
50.0 
100.0 
150.0 

M 

10. 0n 
”10.0 

10.0 

-10.0 

10.0 

-10.0 

i1  2° 

25, 5P 
12.2 

26.6 

13.3 

15.6° 

6.7 

17.7 

8.9 

0R  1S 

2T 

3008. 0U 

0.0V 

178, 0W 

,950X  1.0Y  l2  84* 

ibb 

1588.0 

2598.0 

135.0 

.960  1.0  1  0 

2 

Variable 


a  -  random  number  seed  (if  required)  ISEEO 

b  -  total  number  of  samples  to  be  run  NSAMP 

c  -  interval  between  reports  NSAMPT 

d  -  flag  to  calculate  number  of  required  samples  NFLAG3 

(8  «  perform  NSAHP  samples,  1  =  as  calculate  >  200) 
e  -  required  level  of  significance  (error  allowable)  ERROR 

f  -  standard  normal  variate  associated  with  allowable  error  ZALPHA 

g  -  number  of  target  elements  NELT 

h  -  number  of  target  groups  NT6PS 

i  -  minimum  width  required  to  taxi  aircraft  (8*no  taxi  search)  NPPRCW 
j  -  flag  to  compute  overlapping  craters  (8  =  compute,  1  =  do  not)  NAREA 
k  -  target  element  I  center-point  x-coordinate  TGT(I,1) 
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Variable 


target  element  1  center -point  y-coordinate  TGT(1,2) 
target  element  1  azimuth  of  primary  axis  (orientation)  TGT(1,3> 
target  element  1  length  T8T < 1 , 4> 
target  element  1  width  TGT(1,5) 
surface  code  <0  3  non-surface,  i  =  surface)  ITGT <  1 ,  i) 
target  element  i  hardness  code  (crater  table  index)  ITGiT <  l , 2) 
target  group  of  target  element  1  ITGTU,3) 
minimum  clear  length  (MCL)  for  target  element  1  CRIT(1,1> 
minimum  clear  width  (MCW)  for  target  element  i  CRIT(i,2) 
number  of  TOL  surfaces  NCP 
number  of  taxi  surfaces  LV 
number  of  attack  patterns  defined  NPATT 
number  of  weapons  in  pattern  I  PAT  < 1 , 1 ) 
number  of  submunitions  in  weapon  IRAK  1,2) 
weapon  code  (crater  table  index  number  identifying  weapon)  !PAT(1,3) 
pattern  shape  (0»gen  purpose, i*rec  CBU^elip  CBU^guided)  1PAK 1 ,4) 


range  delivery  error  standard  deviation 

deflection  delivery  error  standard  deviation 

ranr,*  itic  error  standard  deviation 

deftectioa  ballistic  error  standard  deviation 

CBU  half-pattern  length 

CBU  half-pattern  width 

CBU  half-void  length 

CBU  half -void  width 

munition  fuze  reliability 

submunition  fuze  reliability 

munition  range  coordinate  relative  to  center  of  stick 

munition  deflection  coordinate  relative  to  center  stick 

total  number  of  hardness  codes 

number  of  weapons  defined 

hardness  1,  weapon  1  deny-TOU  crater  size 

hardness  1,  weapon  2  deny-TOL  crater  size 

maintenance  patches  available 

repair  priority  cod# 

number  of  attack  passes  to  be  flown 

aimpoint  x-coordinate  for  pass  1 

aimpoint  y-coordinate  for  pass  1 

attack  heading  for  pass  1 

probability  of  arriving  at  release  point  (1st  time) 
probability  of  arriving  at  release  point  (2nd  time) 
attack  pattern  to  be  flown  (PASS  matrix  index) 

-  next  pass  this  aircraft  will  fly 

-  target  element  number  being  attacked 


PATT(  l ,  1) 
PATT(  i  ,2) 
PATT  (1,3) 
PATT (1,4) 
PATT(  1,5) 
PATT  (1,6) 
PATT( 1 ,7) 
PATT( 1 ,8) 
PATT<  1,9) 
RATT( 1 , 10) 
PATT  (1,11) 
PATT<  1, 12) 
NMARD 
NWPM 
arrAB(i,i,i> 
CRTAB( 1,2,1) 
KXPTCH 
IREPR 
NflASS 
PASS<  1 , 1) 
PASS< 1,2) 
PASS< 1 , 3) 
PASS< 1,4) 
PASS( 1,5) 
IRASS<l,i) 
1FASS( 1,2) 
MPX(  1) 


0-4 
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APPENDIX  E 

AAPMQD  SAMPLE  OUTPUT 

This  appendix  describes  AAPNOD  output.  A  typical  listing  is  shown 
on  the  next  page,  -followed  by  a  brief  description.  This  particular 
output  was  produced  by  the  TURBO  PASCAL  version  of  AAPMQD. 


•v.>\ 

%V*;“ 

O  .  * 


rj*  v  t 


CvN- 

V--  '-*1 

jUifcWai 


•  *  \  *  ■ 


■  V  tflik 


M  - 


N 

n 


A  -  number  o f  samples  used  to  calculate  report 

B  -  confidence  half-interval  for  indicated  target  element.  AAPMQD  picks 
the  target  element  with  the  largest  number  of  hits  for  this  portion 
of  the  report. 

C  -  expected  number  of  hits  for  target  element  number  i 

D  -  expected  number  of  hits  for  target  element  number  2 

E  -  standard  deviation  for  expected  number  of  hits  on  target  1 

F  -  standard  deviation  for  expected  number  of  h'i*  on  target  2 

G  -  expected  number  of  hits  for  target  group  1 

H  -  standard  deviation  for  expected  number  of  hits  on  target  group  1 
I  -  minimum  clear  length  for  target  element  number  1 
J  ~  minimum  clear  width  for  target  element  number  1 
K  -  probability  of  cut  (probability  of  denying  a  minimum  clear  strip) 
for  target  element  number  i 
L  -  standard  deviation  for  item  K 

expected  number  of  craters  to  be  repaired  in  order  to  re-open  a 
minimum  clear  strip  on  target  element  1 
standard  deviation  for  item  M 

expected  area  to  fill  in  order  to  re-open  a  minimum  clear  strip  on 
target  element  1 
standard  deviation  for  item  0 
not  used  by  AAPMQD 
not  used  by  AAPMOD 

expected  number  of  craters  to  be  repaired  in  order  to  clear  an 
approach  to  a  minimum  clear  strip, 
standard  deviation  for  item  S 

expected  area  to  fill  in  order  to  clear  an  approach  to  a  minimum 
clear  strip. 

V  -  standard  deviation  for  item  U 
W  -  summary  statistics  for  combinations  of  runways 

X  -  the  distribution  of  minimum  number  of  craters  sum  to  give  a 
probability  of  cut  for  a  particular  runway  combination.  In  this 
example,  0.378  and  0.340  sum  to  give  the  0.718  figure  shown  for  the 
combined  probability  of  cut.  The  distribution  of  minimum  craters 
gives  the  relative  percentage  of  time  that  a  particular  target 
element  must  be  repaired  to  open  a  minimum  clear  strip.  Recall  that 
if  the  field  is  closed,  only  one  minimum  clear  strip  must  be  re¬ 
opened  . 


P 

Q 

R 

S 


U  - 


!• 


j] 

**  *  »  J 


•  „  •  | 


This  appendix  provides  the  source  code  listings  -for  three  o-f  the 
PASCAL  programs  used  to  test  Borland  International's  TURBO  PASCAL  random 
number  generator  and  the  results  ot'  the  tests.  All  o-f  the  tests  were 
accomplished  with  with  a  16-bit  microcomputer,  an  8887  numeric 
coprocessor  unit,  and  the  TURBO-87  Version  2.18A  <8087 -compatible)  TURBO 


PASCAL  compiler. 


The  following  program  was  used  to  test  for  the  period  of  the  TURBO 
PASCAL  random  number  generator.  The  program  begins  by  initiating  the 
random  number  generator  (randomize),  drawing  a  random  number,  and 
assigning  this  value  to  a  variable  <rn> .  The  program  then  continues  to 
draw  random  numbers,  update  counters,  and  display  how  many  millions  of 
random  numbers  have  been  checked  on  the  screen.  The  program  ends  if  a 
new  random  number  comes  within  0.0880080881  of  the  original  number 
stored  in  variable  rn. 

The  test  program  was  run  until  58  million  random  numbers  had  been 
generated,  at  which  time  the  program  was  stopped  by  the  user. 
Therefore,  there  was  no  reoccurence  of  the  first  number  after  the  next 
50  million  random  number  draws  within  a  tolerance  of  0.0000800001. 


{aaimnuunim  . .  i— i  in  n  iinn. i-i  i  maBninnimmi  i  rr-iirr1  '} 

prograa  RandcnNuaberPf.*iod  }  (  4  Jan  85  J 

var  r,  rn  i  real  } 

coeat,  Billions,  thousands  :  integer  j 

begin 
cirscr  \ 

gritelat  'Raadn  Nanber  Period  Test  Prograa7 )  j  Britain  i  Britain  ; 
coaat  »»  •  ;  Billions  :=>  I  j  thousands  v*  I  j  {  initialize  counters  ) 
readout  |  {  initialize  randaa  nuaber  generator  ) 
rn  s=  raadn  }  C  rucks  prodaces  a  read*  aunbcr  betBcen  I  ud  1  ) 
repeat 

coaat  :=  coaat  ♦  1  } 
if  coaat  *  INI  than  begin 
coaat  s*  I  ; 

tkoasaads  !«  tic* sands  *  1  j 
if  tkoasaads  >  INI  than  begin 
tkoesaads  :■  I  \ 

Billions  :>  Billions  ♦  i  j 
gotwyt  I,  3  )  j 
drool  { 

uritet  Billions,  ',NI,IN  sabers  checked.'  )  ; 
ad  ; 
end  i 

r  :*  randn  j  (  draa  mb  naaber  and  store  in  variable  r  ) 
until  <  abs(  r  -  rn  )  <  le-ll )  or  (  Billions  »  auiat )  ; 
end. 


The  -following  program  conducts  a  chi-square  test  to  determine 
whether  the  random  numbers  drawn  -from  the  TURBO  PASCAL  random  number 
generator  are  uniformly  distributed.  The  model  for  the  test  is  shown  in 
Banks  and  Carson  <3;271>.  The  test  is  programmed  for  the  observations 
to  be  stored  in  one  of  180  bins.  The  test  ends  when  any  bin  becomes 
full:  580  observations  maximum  per  bin.  The  test  was  run  three  times, 
with  the  results  as  shown  after  the  program  listing.  At  a  level  of 
significance  of  alpha  =  8.10,  the  null  hypothesis  that  the  numbers  were 
not  uniformly  distributed  would  be  rejected  if  the  chi-square  test 
statistic  was  greater  than  118.5.  All  of  the  tests  produced  a  chi- 
square  value  less  than  118.5,  thus  indicating  that  the  null  hypothesis 
could  not  be  rejected.  The  high  level  of  significance,  8.10,  gives  more 
power  to  the  rejection  of  the  null  hypothesis,  and  hence  more  credence 
to  the  conclusion  that  the  random  number  streams  analysed  were  uniformly 
distributed. 


progrM  RandaHunberTests  ;  {  4  Jan  85  ) 

(au'un  n-jumiminn  u  .  iii.m:  ■■ai  miuiimi  i  mu  iviTinnEsr.K-'ir^tii-sumiirans  ,  r-w) 

var  count,  no,  r,  rn,  ss,  siax,  suoxsqr,  sx,  sxn,  x  s  real  } 
i,  icount,  j,  thousands  :  integer  } 
period,  quit  :  boolean  ; 
freq  t  array II.. 111!  of  integer  j 
1st  :  text  { 

procedure  diskoutput  \ 
begin 

assign*  1st,  'HjBINSIII.OUT'  )  ; 
rewrite*  1st  )  j 
wd  \ 

begin  ( tain  progrM  } 
drstr  j 
diskoutput  j 

writeln*  'Rand»  Nwber  Test  ProgrM'  )  j  writela  5  writeln  | 
writuti*  1st,  'TURBO  PASCAL  Randn  Mwtxr  Tast  ProgrM'  )  ; 
writeln*  1st  )  ;  writeln*  1st  )  | 
quit  :»  false  ;  period  :»  false  j 


r  -  3 


for  i  ;=  1  to  188  do  freqtil  :=  i  ;  {  zero  array  values  ) 

count  :=  8  ;  icount  :=  8  ;  thousands  :=  8  ;  <  initialize  counters  } 

randcnize  ?  <  initialize  random  number  generator  ) 

rn  ;=  random  ;  <  random  gives  a  random  number  between  8  and  1  > 

r  !=  rn  ; 

repeat 

count  s=  count  ♦  1  ; 
icount  :=  icount  ♦  i  j 

i  i=  trunct  r  *  188  )  +  1  ;  {  convert  to  integer  between  1  and  188  > 
freqtil  i=  freqtil  +  1  5 
it  freqtil  =  S88  then  quit  s=  true  \ 
if  icount  5  1888  then  begin 
icount  ?=  8  ; 

thoisuds  :=  thousands  *  1  5 
gotoxyt  8,  3  )  ; 
dreol  5 

writet  thousands,  ',888  numbers  checked.'  )  ; 
end  ; 

r  :=  random  j 

if  abst  r  -  rn  )  <  ie-7  then  period  :=  true  j  t  check  for  period  ) 
until  quit  or  period  j 

write<  1st,  'The  period  of  this  generator  '  )  j 

if  period  then  urite<  1st,  'equals'  )  else  writet  1st,  'exceeds'  >  ; 

writelnt  1st,  '  the  amount  of  numbers  generated.'  )  ; 

writelnt  1st,  '(  Epsilon  =  8.8888881  >'  >  ; 

writelnt  1st  )  j 

writelnt  1st  )  } 

writelnt  1st,  'Number  of  random  numbers  generated  3  ',  count :5:8  )  | 

writelnt  1st  )  ; 

writelnt  1st  )  ; 

mu  13  count  /  188  \ 

sumxsqr  s=  8  j 

•for  i  *=  1  to  188  do  sumxsqr  13  sumxsqr  *  sqrt  freqtil  -  mu  )  ; 
writelnt  1st,  'Nu  »  ',  mu  )  ; 
writelnt  1st  )  j 

writelnt  1st,  'Sum  of  t  Xi  Squared  )  =  ',  .sumxsqr )  j 
writelnt  1st  )  ; 

writelnt  1st,  'Chi  squared  3  ',  sumxsqr  /  mu  )  ; 
writelnt  1st  )  } 
writelnt  1st  )  ; 
write’ it  1st  )  ; 

writelnt  1st,  'Contents  of  bias  from  1  to  118.  t  Sow  I  3  Bins  1*5  )'  )  | 

writelnt  1st  )  j 

for  i  13  8  to  19  do  begin 

for  j  t3  1  to  S  do  writet  1st,  freql  i  K  5  *  j  1:18  )  } 
writelnt  1st  )  j 
«d  1 

closet  1st  )  i 


The  results  of  test  #1,  180  bins: 

TURBO  PASCAL  Random  Number  Test  Program 

The  period  of  this  generator  exceeds  the  amount  of  numbers  generated. 
<  Epsilon  =  8.8888801  ) 


Number  of  random  numbers  generated  =  45481 


Hu  *  454.81 


Sum  of  <  Xi 

Squared  > 

= 

47,765.39 

Chi  squared 

= 

105.82 

Contents  of 

bins 

from 

1  to 

100: 

Bins  1  to 

5: 

446 

476 

445 

488 

486 

Bins  6  to 

10: 

434 

436 

476 

434 

493 

Bins  11  to 

15: 

478 

497 

426 

445 

463 

Bins  Id  to 

20: 

446 

450 

460 

434 

447 

Bins  21  to 

25: 

481 

438 

437 

433 

472 

Bins  26  to 

38: 

461 

431 

441 

469 

471 

Bins  31  to 

35: 

456 

458 

475 

482 

457 

Bins  36  to 

40: 

446 

488 

464 

427 

415 

Bins  41  to 

45: 

446 

487 

456 

472 

407 

Bins  46  to 

50: 

469 

450 

461 

437 

460 

Bins  51  to 

55: 

439 

453 

486 

421 

498 

Bins  56  to 

60: 

424 

450 

481 

450 

451 

Bins  61  to 

65: 

449 

463 

477 

464 

441 

Bins  66  to 

78: 

580 

417 

495 

443 

479 

Bins  71  to 

75: 

438 

416 

419 

445 

487 

Bins  76  to 

80: 

452 

466 

462 

491 

451 

Bins  81  to 

85: 

448 

460 

434 

438 

426 

Bins  86  to 

90: 

455 

453 

438 

432 

437 

Bins  91  to 

95: 

442 

428 

454 

489 

494 

Bins  96  to 

100: 

465 

426 

462 

448 

461 

F  -  5 


The  results  of  test  #2,  108  bins: 

TURBO  PASCAL  Random  Number  Test  Program 

The  period  of  this  generator  exceeds  the  amount  of  numbers  generated. 
<  Epsilon  =  0.8600801  ) 

Number  of  random  numbers  generated  =  43826 

Mu  =  438.26 

Sum  of  <  Xi  Squared  >  =  50,711.24 

Chi  squared  »  115.71 


Contents  of  bins  f«*om  1  to  100: 


Bins  1  to 

5: 

447 

429 

494 

470 

413 

Bins  6  to 

10: 

486 

446 

410 

406 

462 

Bins  11  to 

15: 

467 

461 

417 

429 

420 

Bins  16  to 

20: 

432 

444 

453 

434 

406 

Bins  21  to 

25: 

432 

477 

434 

476 

438 

Bins  26  to 

30: 

376 

439 

415 

440 

474 

Bins  31  to 

35: 

433 

425 

500 

455 

453 

Bins  36  to 

40: 

457 

429 

415 

431 

415 

Bins  41  to 

45: 

414 

462 

434 

419 

440 

Bins  46  to 

50: 

437 

463 

416 

416 

438 

Bins  51  to 

55: 

471 

439 

454 

461 

451 

Bins  56  to 

60: 

421 

424 

449 

418 

439 

Bins  61  to 

65: 

437 

445 

456 

456 

462 

Bins  66  to 

70: 

429 

432 

409 

443 

471 

Bins  71  to 

75: 

431 

418 

410 

449 

436 

Bins  76  to 

80: 

404 

454 

434 

486 

435 

Bins  81  to 

85: 

454 

404 

431 

421 

418 

Bins  86  to 

90: 

424 

448 

448 

436 

415 

Bins  91  to 

95: 

488 

441 

426 

458 

473 

Bins  96  to 

100: 

418 

435 

428 

418 

451 

F  -  6 


The  resui ts 

of  test  #3, 

180  bins: 

TURBO  PASCAL  Random  Number  Test  Program 

i 

1 

The  period 

of  this  generator 

exceeds  the  amount 

of  numbers  generated.  [ 

<  Epsilon  = 

0.8888881 

) 

t, 

l 

1 

Number  of  random  numbers  generated  =  45821 

i, 

k 

k 

Mu  =  458.21 

1 

Sum  of  <  Xi  Squared  ) 

=  45,682.59 

Chi  squared 

= 

181.29 

r 

P 

f 

Contents  of 

bins 

from 

1  to  188: 

i 

r 

t. 

Bins  1  to 

5: 

414 

486 

457 

445 

k 

500 

Bins  6  to 

18: 

437 

417 

442 

403 

480  £ 

Bins  11  to 

15: 

467 

438 

420 

427 

459  •• 

Bins  16  to 

28: 

440 

432 

443 

455 

449  ■ 

Bins  21  to 

25: 

470 

450 

467 

452 

454  t 

Bins  26  to 

38: 

442 

437 

448 

451 

448  i 

Bins  31  to 

35: 

451 

429 

440 

495 

423  : 

Bins  36  to 

48: 

444 

490 

453 

461 

460 

Bins  41  to 

45: 

457 

449 

449 

402 

460  : 

Bins  46  to 

50: 

485 

453 

461 

443 

448  l 

Bins  51  to 

55: 

433 

430 

434 

472 

488  j. 

Bins  56  to 

68: 

440 

431 

475 

478 

434 

Bins  61  to 

65: 

438 

471 

429 

429 

47?  ;* 

Bins  66  to 

70: 

441 

433 

472 

495 

442 

Bins  71  to 

75: 

488 

453 

426 

451 

432  $ 

Bins  76  to 

88: 

468 

474 

408 

449 

4 96  , 

Bins  81  to 

85: 

468 

469 

443 

429 

437  [ 

Bins  86  to 

98: 

487 

432 

457 

464 

417 

Bins  91  to 

95: 

438 

435 

451 

471 

424 

Bins  96  to 

108: 

472 

451 

474 

424 

448 

Another  chi-square  test  was  accomplished  using  1024  bins,  a  maximum 
of  32,76?  observations  per  bin,  and  a  smaller  period  tolerance  level  of 
0.0000000081.  The  chi-square  value  obtained  was  divided  by  the  number 
of  bins,  1024,  to  obtain  a  test  statistic.  The  resultant  value  would  be 
indicative  of  uniformly  distributed  numbers  if  it  were  in  the  range  0.5 
to  2.8  <56;446>.  For  each  of  several  tests  performed,  the  test 
statistics  fell  within  the  range  indicative  of  uniformly  distributed 
numbers.  The  following  shows  the  program  used  and  results  for  one  of 
the  test  runs. 


=) 

a) 


1st  :  text  ; 

procedure  prietrw  | 
begin 

for  j  i=  1  to  8  do  mrite!  1st,  freql  i  i  8  ♦  j  lit  >  j 
uritelot  1st  )  ; 

eid  i 

procedure  diskoutput  ) 
begin 

assign!  1st,  'HjWTESTS.QUT'  )  ; 
rewrite  1st  )  | 
oid  | 

begin  <  oain  program  ) 
clrscr  | 
diskoutput  | 

mritele!  'Random  Number  Test  Progrn'  >  j  uriteli  j  uriteia  j 

mritele!  1st,  'TURBO  PASCAL  Kudos  Number  T«t  PrograJ  )  j 

mriteln!  1st  )  j  uritela!  1st  )  j 

quit  false  j  period  s*  false  | 

for  i  i»  I  to  1124  do  freqtil  i*  I  | 

cooat  s*  •  ;  icosat  :*  •  j  ttumsaids  :»  I  ;  millions  s»  •  j 

randoms  ; 

m  :*  random  t  r  :»  ca  ; 


( - , - i- *t ■— T** . r . t  n . - 

program  RandeoNuoberTests  j  {  4  Jan  85  ) 

var  count,  mu,  r,  rn,  ss,  sunx,  suoxsqr,  sx,  sxn,  x  :  real  ; 
i,  icount,  j,  millions,  thousands  t  integer  j 
period,  quit  t  boolean  } 
freq  s  array! i.. 11241  of  integer  { 


F  -  8 


count  s “  count  <  i  ; 
icount  :=  icount  ♦  1  ; 
i  :=  trunct  p  i  1124  >  ♦  1  j 
treqlil  :=  freqlil  ♦  1  } 
i t  treqlil  =  ■uint  then  quit  :=  tru*  ; 
it  icount  -  1811  than  begin 
icount  j=  8  | 

thousands  :=  thousands  ♦  1  ; 
it  thousands  3  1888  then  begin 
thousands  i=  8  j 
Billions  ••=  Billions  *  1  ; 
gotoxy<  8,  3  )  ; 
dreol  | 

uritet  Billions,  ',888,888  umbers  checked. '  )  ; 
end  ; 
end  ; 

r  ;=  ranch*  ; 

it  abs<  r  -  rn  )  <  le-18  then  period  :=  true  { 
until  quit  or  period  ; 

uritet  1st,  'The  period  ot  this  generator  '  )  ; 

it  period  then  uritet  1st,  'equals'  )  else  uritet  1st,  'exceeds'  )  j 

uritelnt  1st,  '  the  Mount  ot  nuebers  generated.'  )  j 

uritelnt  1st  )  } 

uritelnt  1st  )  j 

uritelnt  1st,  count,  '  randu  outers  Mere  generated.'  )  ; 

uritelnt  1st  )  | 

uritelnt  1st  )  ; 

m  i=  count  /  1824  j 

suax  i3  I  ; 

tuxsqr  ia  8  ; 

tor  i  p  1  to  1824  do  suxtqr  t*  suxtqr  e  sqri  treqtil  -  w  )  j 
uritelnt  1st,  'Me  *  ',  w  )  } 
uritelnt  1st  )  | 

uritelnt  1st,  'Su  ot  t  Xi  Squared  >  »  ',  suxtqr  >  j 
uritelnt  1st  )  | 

uritelnt  1st,  'Chi  squared  *  ',  suxtqr  l  an  )  \ 

uritelnt  1st,  VCeattets  ot  bits  tru  1  to  1124.  t  Rom  1 »  Bins  H  )'  )  | 

uritelnt  1st  )  ; 

tor  i  i*  I  to  4f  do  pnntrou  | 

uritelnt  1st,  *i  )  j 

ter  i  i»  91  to  99  do  printrou  j 

uritelnt  1st,  *1  )  | 

ter  i  i»  tM  to  127  do  printrou  j 

closet  1st  )  } 


The  results  of  test  #i,  1824  bins: 

TURBO  PASCAL  Random  Number  Test  Program 

The  period  of  this  generator  exceeds  the  amount  of  numbers  generated. 
<  Epsilon  =  8.8888888881  ) 

Number  of  random  numbers  generated  =  32,986,943 
Mu  =  32,213.81 

Sum  of  <  Xi  Squared  )  =  31,529,942.62 

Chi  squared  *  978.778941 187245E+802 

Test  statistic  =8.956 
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APPENDIX  6 


PASCAL  LISTING  FOR  RESPONSE  SURFACE  METHODOLOGY 

This  appendix  contains  TURBO  PASCAL  computer  code  -for  performing 
regression  and  analyzing  response  sur-faces.  The  main  -file, 
RESP0NS1 .PAS,  is  self-documenting  with  a  short  description  of  the 
program  as  well  as  required  inputs  and  various  options.  Two  separate 
files  are  contained  in  this  appendix.  As  described  at  Appendix  A,  large 
TURBO  PASCAL  programs  are  most  easily  compiled  by  using  'Include*  files. 
RESPONSE. PAS  contains  only  one  line  of  code  which  'includes*  the  main 
response  surface  methodology  program  located  in  RESP0NS1 .PAS. 
RESP0NS1.FAS  is  too  large  to  be  compiled  directly  on  <S4K  machines  in 
TURBO  PASCAL.  The  programs  listed  in  this  appendix  are) 

Section  Is  RESPONSE. PAS 


Section  2)  RESPONSl.PAS 


program  Response  ;  {  i7  January  1985,  Kaj  David  Roadhouse  } 

(X  Program  Descriptions  This  program  performs  linear  regression  on 
X  input  data.  One  dependent  variable  <y)  and  up  to  M  independent 
X  variables  (x's)  are  permitted  in  the  present  configuration.  This 
X  includes  any  second-order  terns,  so  the  largest  second-order  problem 
X  can  include  up  to  4  first-order  variables,  4  squared  terns,  S 
X  interaction  terns,  and  the  aean  for  a  total  of  15.  The  largest 
X  first-order  problea  can  include  4  stain  effects,  six  2-factor 

X  interaction  terns,  four  3-factor  interaction  terns,  one  4-factor 

X  interaction  ter®,  and  the  aean  for  a  total  of  Id.  This  can  be 
X  easily  expanded  in  the  declaration  and  initialization  sections. 

X  Note  that  s«E»ory  becomes  an  increasing  problem  with  larger  designs. 

X  Up  to  SI  data  points  can  be  entered  presently. 

X 

X  Input  data  can  either  be  placed  in  an  input  dish  file  (for  which 
X  you  will  be  proapted)  or  entered  directly.  The  dish  file  is 
X  encouraged  since  there  is  no  provision  for  correcting  errors  when 
X  entering  data  directly. 

X 

X  A  typical  input  disk  file  would  appear  as  follows: 

X 

X  8 

X  7 

X  l.tfl  -1  -1  -1 

X  8.148  1  -1  -1  - 

X  8.795  -1  1  -1  - 

X  8.838  -1  -1  1 

X  8.875  1  l  -1 

X  8.845  1  -1  t  - 

X  8.828  -111- 

X  8.458  1  1  1 

X 

X  where  8  is  the  nunber  of  observations  ,  7  is  the  nunber  of  effects 
X  NUT  including  the  mean,  the  left-most  column  contains  the  dependent 
X  variables  values  for  each  observation,  and  the  remainder  represents 
X  the  design  matrix.  In  this  case,  the  design  in  for  3  factors  uith 
X  full  factorial  (columns  2-4),  three  2-factor  interaction  terms 
X  (columns  5-7),  and  the  single  3-factor  interaction  ten  (column  8). 

X 

X  The  program  expects  data  in  the  form  of  an  equation: 

X  y  =  bl  +  blXxl  ♦  b2Xx2  ♦  b3XxlA2  ♦  b4Xx2*2  +  b5XxtXx2 
X 

X  The  y  (dependent  variable)  and  x's  (independent  variables)  are  entered 
X  in  order,  The  program  uses  least  squares  to  figure  the  b's, 

X 


1  1  -1 
-1  1  1 
l  -1  1 

-1  -l  1 
-1  -1  -1 
1  -t  -1 
-t  1  -1 
111 


X  The  program  uses  matrix  manipulations  (Sram-Schaidt  Orthogonal- 
X  ization  to  solve  tor  the  regression  coefficients  (b's) .  This  is 
X  done  as  foil  sms: 

I 

X  1. 

I  2. 

I 
X 

I  3. 

X 

I  4. 

X  5. 

X 

X  The  program  employs  more  classic  Sauss-Jordan  matrix  inversion 
X  for  finding  response  surface  stationary  points  if  this  option 
X  is  selected  by  answering  *y’  when  prompted. 

3! 

X  ANNA  is  performed  with  the  proper  response  to  the  prompt. 

X  Nore  than  one  center  point  is  required  to  perform  ANOMA  in  this  program 

I  and  the  center  points  must  be  the  last  lines  in  the  input  file. 

X  The  multiple  center  points  are  used  to  estimate  variance  in  the  data. 

X  Nore  than  one  center  point  enables  the  ANNA.  At  this  point  the 

X  AMINA  tests  how  well  the  model  fits  the  data  and  haw  significant 
X  lack  of  fit  is.  When  prompted,  an  entry  of  M*  supresses  the  ANOMA 
X  since  only  one  center  point  is  implied.  Use  this  entry  even  if  there 
X  no  center  points  included  in  the  design.  Any  other  positive  number 
X  enables  the  ANNA  and  must  correspond  to  the  number  of  center  points. 

X 

X  Finally,  stationary  point  calculation  are  made  if  selected. 

X  You  should  only  use  this  section  when  employing  a  second  order  model 
X  or  the  results  will  be  unpredictable.  The  x's  for  the  stationary 
X  point  are  the  coordinate  of  a  local  minium,  maximum,  or  saddle  point. 

X  The  y  value  is  the  dependent  variable  value  at  the  stationary  point. 

X) 

type  (TYPE  DECLARATIONS) 

matrixl  =  array(1..4,h.41  of  real  j 

var  (VARIABLE  DECLARATIONS  AND  KEY) 

(  the  program  is  presently  configured  for  up  to  58  observations 
and  up  to  Id  explanatory  variables;  be  sure  to  update  the  array 
declarations  AMD  procedure  Initialize  when  expanding  arrays  as 
well  as  procedure  EnterData  for  error  trapping.  All  the  sections 
that  need  to  be  changed  can  be  found  by  searching  for  "update  point"  ) 

diskfile  :  text  ;  (disk  file  variable) 

fname  :  stringC 14)  ;  (for  file  names) 


Read  input  data  (X  and  Y  matrices) ,  from  disk  or  keyboard 
Break  the  X  matrix  into  2  component  matrices  (  X  =  OR) 

a.  0  is  orthogonal  (greatly  simplifies  matrix  ops) 

b.  R  is  upper  triangular  (easy  to  back  solve) 

Back  solve  for  beta's  (b's  or  regression  coefficients) 
a.  This  amounts  to  solving  (  RXb  =  6'y) 

Compute  variance  and  covariance  matrices 
Write  the  results  to  the  screen 


Beta,  Betalnverse  :  matrixl  ;  (cross  product  correlation  coefficients) 


b. 

(regression  coefficients) 

Ci 

(intermediate  matrix) 

XprineYbar, 

(matrix  intermediate  product) 

Xcrit 

(response  surface  stationary  point) 

:  arraytl.,16)  of  real  ; 

(update  point) 

«! 

(error  matrix) 

y 

(dependent  variable  values) 

:  array! 1.. 58]  of  real  ; 

(update  point) 

r, 

(component  matrix  X  =  GR) 

v, 

(variance  matrix) 

u 

(unsealed  variance-covariance  matrix) 

:  array!!,. 16,1.. 163  of  real 

j  (update  point) 

<li 

(orthogonal  component  matrix  X  =  QR) 

X 

(independent  variable  values) 

:  array! 1.. 51,1.. 16]  of  real 

j  (update  point) 

BhatXprineYbar, 

(uncorrected  regression  sum  of  squares) 

ev. 

(error  variance) 

MSE, 

(mean  square  -  error) 

MSFit , 

(mean  square  -  lack  of  fit) 

HSR, 

(mean  square  -  regression) 

SSE, 

(sun  of  squares  -  error) 

SSFit, 

(su  of  squares  -  lacG  of  fit) 

SSR, 

(sun  of  squares  -  regression) 

SST, 

(sum  of  squares  -  total) 

SSTcorrected, 

(sun  of  squares  -  total ,  corrected  for  mean) 

swE, 

(sun  of  absolute  errors  -  center  point) 

5. 

(intermediate  variable) 

ycrit 

(dependent  variable  value  at  stationary  point) 

i  real  t 

iiJiliMt 

(loop  counters) 

(number  of  main  effects} 

(number  of  independent  variables) 

(number  of  observations) 

P 

(number  of  center  points) 

:  integer  j 

solveXo,  {flag  for 

solving  response  surface  stationary  point) 

an ova, 

(flag  to  perform  antra) 

print, 

(hard-copy  flag) 

continue  (cross 

product  matrix  noosingular  -  can  continue) 

t  boolean  } 

choice, 

(hard-copy  option) 

choice2 

(solve  stationary  point  option) 

:  char  t 
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{ . —  . 1 - - ===== - r-====.-.MSa--S=} 

procedure  pause  ; 

(X 

X  delays  crt  output  until  a  Key  is  pressed 
X) 

begin 
writeln  ; 

write<  '  press  any  Key  to  continue  '>; 

repeat  until  Keypressed  ; 
writeln  ; 

end  ;  (X  procedure  pause  X) 
procedure  Protessfile  ; 

<  Initial  processing  of  filename  entered  by  user  ) 

var  p  :  integer  ; 
begin 
writeln  ; 

writet  'Enter  name  for  the  regression  input  file  =>  *  )  5 
readlnf  fnaoe  >  ; 
writeln  ; 

p  :<•  post  fnaae  )  ;  {filetype  can  be  3  characters  max) 

if  p  0  I  then  delete*  fnaae,  p .  ♦  4,  14  )  \ 
for  p  i=*l  to  14  do  fnaaelp]  ?*  upcaset  fnaoetp]  )  3 
repeat  (delete  leading  blanks) 

p  !=  post  '  fnaae  )  } 
if  p  3  1  then  delete*  fnaae,  p,  l  >  j 
until  p  O  1  j 
writeln  j 

end  3  (procedure  Processfile) 
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procedure  Initialize  ; 

<1  Initializes  various  arrays  and  variables  used  throughout  progran  X) 


begin 
uriteln  ; 

writelni  'Initializing 
ariteln  ; 

n  :=  31  ;  (update  point)  (up  to  58  observations) 

k  :=  id  }  (update  point)  (id  explanatory  variables  including  nean) 

anova  :=  false  ; 
solveXo  s=  false  ; 
continue  :*  false  ; 
for  i  :=  1  to  k  do  begin 
bill  :«  I  ; 
cli)  :=  §  ; 

for  j  :=  1  to  k  do  begin 
rti,j)  I  j 
vli,jj  8  j 
u[i,jl  :=  8  ; 
end  ; 
end  ; 

for  i  :=  1  to  n  do  begin 
elil  s=  8  j 
yli)  j*  I  5 

for  j  i3  1  to  k  do  begin 
qti,J)  i*  I  | 
xti,j)  :■  I  j 
end  j 
end  } 

end  |  (procedure  Initialize) 


ri 


{===== 
procedure  EnterData; 


} 


begin 
writeln  } 

write1n<  ‘'least  squares  estimation  using  Bram-Schmidt  Orthogonal izat ion'  ) 
writeln  5 

write*  'How  many  observations  do  you  have?  '  >  5 
repeat  C$1*)  readln*  n )  li  10  until  ioresult  =  8  ; 
writeln; 

it  n  )  58  then  {update  point) 

begin 

writeln<  'You  must  resize  arrays  tor  this  many  observations.'  , 

'  Terminating...'  )  5 

halt  ; 
end  ; 

write*  'How  many  explanatory  variables  (X"s)  do  you  have?  '  >  ; 
repeat  {$!-)  readlnt  k  >  (fie)  until  ioresult  =  I  ; 
writeln  ; 

it  k  )  Id  then  {update  point) 

begin 

writeln*  'You  must  resize  arrays  tor  this  many  variables.'  , 

'  Terminating...'  )  ; 

halt  ; 
end  ; 

writeln*  'Please  enter  equations  in  order)'  )  ; 
writeln*  'For  X"s  -  the  tirst  subscript  is  the  equation  niaber,'  )  ; 
writeln*  '  the  second  subscript  is  the  variable  number.'  )  ; 
writeln  ; 

tor  j  t*  1  to  13  do 
begin 

write*  'Y('  ,  j  ,')■?')  ; 

repeat  (II-)  readlo*  ytj)  )  (lie)  until  ioresult  =  I  ; 

writeln  ; 

tor  i  1=  1  to  k  do 
begin 

write*  'X*'  j  '  '  i  ')■?'); 
repeat  {$1-)  readlo*  xlj,i*il )  {II*)  until  ioresult  =>  I  ; 
writeln  1 
end  | 
writeln  ; 

xtj.ll  :*  1.1  ;  {constant  term) 
end  1 
writeln  5 

end  ;  (procedure  EoterOata) 
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procedure  GetData  ; 

{  Retrieves  data  'file  fren  disk  } 


var  badnane  :  boolean  : 

begin 

repeat 

processfile  ; 
if  lengtht  fnane  )  =  8 
then  badnane  :=  true 
else 
begin 

assignt  diskfile,  fnane  )  ; 

{$1-}  resett  diskfile  )  ;  (♦!♦  check  if  diskfile  exists) 

badnane  :=  ioresult  0  I  ; 
end  ; 

if  badnane  then 
begin 

writelnt  'File  <  ',  fnane,  '  >  does  not  exist.  Specify  the  correct 
'drive  if'  )  ; 

writelnt  'different  fron  the  logged  drive.  Enter  coatrol-C  to  ', 
'abort  progran.  ' )  ; 

writeln 
end  ; 

until  not  badnane  | 
writeln  ; 

uritelnt  'Reading  disk  file  <  ',  fnane,  '  >  )  j 

writeln  ; 

readlit  diskfile,  n  )  | 

if  n  >  51  then  (update  point) 

begin 

writeln(  'Too  tuny  observations  for  tutrices.  Temioating  ...'  )  | 
halt  i 
and  | 

readlnt  diskfile,  k  )  j 

if  K  )  Id  then  (update  point) 

begin 

uritelnt 'Too  nany  variables  for  natrices.  Temioating  ...')  j  • 
halt  | 
end  t 

for  j  I  to  n  do 
begin 

read(  diskfile,  yljl  )  ; 
for  i  t*  l  to  k  do 
read!  diskfile,  x(J,i*U  )  j 
xij.n  i-  i.i  { 
end  ; 

closet  diskfile  >  \ 
end  |  (procedure  6etData) 


procedure  FirstCalcuiations  ; 

{  Calculate  SST  and  other  values  before  input  natrices  are  nodified  } 


SST  s=  I  ; 
for  i  1  to  n  do 
SST  !=  SST  ♦  sqr<  ytil  )  5 
for  i  s=  1  to  k+1  do 
begin 

XprineYbartil  s=  §  •, 
for  j  5*  1  to  n  do 

XprineYbartil  s=  XprineYbartil  *  x£j,il  X  ytjl  5 
end  ; 

end  \  {procedure  FirstCalcuiations) 


procedure  RKeyElnent  ; 

var  rr  :  real  | 
begin 

rr  :=  l.l  5 

for  i  j*  I  to  n  do  rr  1*  rr  ♦  sqr(  xti,zl  )  5 
r£z,zl  t*  sqrt(  rr  ) 
end  |  (procedure  RKeyEleneot) 


procedure  QCoIum  1 


— 

for  i  i«  I  to  n  do  q£i,zl  t*  x(i,zl  /  rlz, zl 
end  3  (procedure  QCoIum} 


procedure  RColun  j 
begin 

if  z  0  k  then 
for  1  «»  *♦!  to  It  do 
begin 

rtz,U  :=  M  t 

for  i  1  to  0  do  r(z,U  :»  rti,ll  ♦  iti,U  X  qtitzl 
end  t 

end  ;  (procedure  RColunel 


procedure  CEleoent  ; 
begin 

ctz)  :=  8.8  j 

for  i  s3  i  to  n  do  c(z)  s3  clzl  *  ytil  l  q(i,z) 
end  5  (procedure  CEleaent) 


procedure  Revise*  \ 
begin 

if  z  O  k  then 
for  i  s=  l  to  n  do 
for  1  :3  z*l  to  k  do 
x[i,H  :=  x(i,U  -  q[i,z)  l  rtz,l) 
end  s  (procedure  ReviseX) 


procedure  Orthogoonlize  5 
begin 

writeln(  'Computing 
k  :3  k*l  j 
for  z  t*  I  to  k  do 
begin 

RKeyElwent  ; 

Koluan  ; 

RCotuan  \ 

CElewnt  { 

ReviseX 
end  | 

end  |  (procedure  Qrthogonelize) 


procedure  BickSolv#  \  (for  regression  coefficients) 
begin 

MR)  i»  elk)  /  r(k,k)  \ 
for  i  v*  H  daw  to  l  do 
begin 

%  x*  M  j  (left-side  sob) 

for  i  13  Ul  to  k  do  s  1=  s  ♦  r(i,j]  I  btjl  ; 
bin  I-  <  cm  -  s  >  /  rti,i) 
end  ; 

end  |  (procedure  BzckSolve) 


( - » - r'  aaa—ax  .==^i=: -  - - - ) 

procedure  ErrorVariance  j  (Vector  of  residuals  (E  =  Y  -  QIC)) 
begin 

for  i  s=  1  to  n  do 
begin 
s  :=  l.l  ; 

(or  j  s=  1  to  k  do  s  ;=  s  4  qti,jj  I  ctjl  | 
etil  yti)  -  s 
end  | 

s  s=  l.l  ;  (Error  variance) 

(or  i  s*  i  to  n  do  s  :=  s  ♦  sqr(  etil  )  ; 
if  n  0  k  then  ev  ;=  s  /  (n-k) 
else  ev  s3  l.l  ; 

end  $  (procedure  ErrorVariance) 

procedure  InvertMatrixit  ; 
begin 

(or  i  :*  1  to  I  do  vti,il  ;a  1  /  rti,i)  j 
(or  i  t=  k-t  douato  1  do 
(or  J  s»  i+l  to  k  do 
begin 
s  :*  l.l  ; 

(or  1  p  i*t  to  j  do  s  s*  &  ♦  r(i,U 
v(i|j)  v*  *•$  /  rti,il 
end  j 

ced  ;  (procedure  levertNatriuB) 

(«MSBCttWBSgS act  ■■Ht‘V-!iaiki^jra  r>  JCSHttSS  SB  SttBftl  j 

procedure  UoscaiedVarCovMatrii  j 
begin 

(or  i  ja  1  to  k  do 
(or  J  **  Ito  k  do 
begin 

uCit)l  ta  l.l  , 

for  1  j*  1  to  k  do  ttli'j)  r»  *U,J)  *  vCitU  i  v  ti,ll 
end  } 

etd  s  (procedure  UeualedlarCouKatriil 


(Diagonal  elements) 
(Off-diagonal  eleaeots) 


(Left-side  sun) 
IvU.Jl  ] 


procedure  Variant  eCwiriiu*  ; 
begin 

ErforVariast*  i 
InvertHatrixB  ; 

UflscaledVarCtx^atri* 
end  j  (procedure  VariaaceCcwarijace) 
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(==== -  - - - - «===) 

procedure  SunQf  Squares  ; 

begin 
writeln  ; 

uritelnf  'Enter  the  number  of  center  points  run  for  response  surface'  , 
7  analysis/  J  ; 

writet  'Enter  1  if  no  ANGMA  is  desired  =>  '  )  j 
repeat  (II-)  re?dln(  p  >  {•lit}  until  ioresult *  I  j 
writeln  j 

if  p  )  1  then  ancva  i=  true  ; 
if  anova  then 
begin 

BhatXpriaeYbar  *,*>  I  } 
for  i  j=  1  to  K  do 

8hatXpriMYbar  :a  BhatXpriaeYbar  ♦  btil  Si  XpriaeYbirU!  \ 
SSTcorrected  i*  SST  -  sqr(  XprineYbartll  )  /  n  j 
SSR  sa  BhatXpriaeYbar  -  sqr<  XpriaeYbarlU  )  /  o  ; 

SS£  :«  S  j 
surf  t*  I  { 

for  j  ia  n-p*l  to  n  do 
begin 

SSE  i3  SS£  ♦  sqr(  ytil  )  *, 
surf  surf  *  ytil  s 
end  } 

SSE  t*  SSE  -  tqr<  surf  )  /  p  j 
SSFit  SBTcorrected  -  SS8  -  SS£  j 
HSR  sa  SSR  /  <k-l)  j 
HSFit  {*  mi  /  <o-*-pe|>  ; 

HS£  s*  SS£  /  <{H>  j 
end  } 

end  {  (procedure  SurffSguam) 
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( - i-i-i  ■—  i »«===«  -  . . r— "sam - ■ -  } 

procedure  InvertHatrixB(  b  :  matrix  1;  var  c  :  matrix t  ;  r  :  integer  )  ; 


:v.v.s.vjvyv 


var  i , j ,Kt1  :  integer  ; 
s,t  :  real  ; 
nonsingular  :  boolean  ; 

begin 

continue  f  true  \ 
tor  i  i=  i  to  r  do 
tor  j  f  l  to  r  do 
cti,j]  :=  8.8  ; 
tor  i  :=  1  to  r  do 
cti,i)  :=  1.8  ; 
j  :=  •  i 
repeat 

j  f  i  ♦  i  i 

nonsingular  f  talse  j  (reinitializing  tlag  -  presumed  singular) 

i  f  j-i  f 

repeat 

i  s=  i  ^  1  j 

it  b[i,j)  0  8.8  then  nonsingular  f  true  }  (tound  non-zero  value) 
until  (i  =  r)  or  nonsingular  \ 

it  not  nonsingular  then  continue  f  talse  ;  (singular  matrix) 
it  continue  then 
begin 

tor  k  f  1  to  r  do 
begin 

s  Is  blj,kl  5 
btj.kl  v*  bCi fK3  | 
b(i,kl  f  s  ; 
s  S3  c(j,k)  ; 
c[J,kl  f  cti.U  ; 
c(i,k)  f  s  ; 
end  ; 

t  f  1  /  bf  j,j]  | 
tor  k  f  1  to  r  do 
begin 

b(j|kl  f  t  X  bU,k)  ; 
c(j,kl  f  t  X  c(j,M  S 
end  i 

tor  1  f  1  to  r  do 
H  1  O  j  then 
begin 

t  f  -blljjl  | 
tor  k  f  i  to  r  do 
begin 

b(t,k)  f  bU,k)  ♦  t  X  bU,k)  i 
cu,k)  f  cn.ki  ♦  t  x  ctj,k)  i 
end  ; 
end  ; 

end  | 

until  (j  =  r)  or  not  continue  | 
end  }  (procedure  InvertHatrixB) 
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v_.vj  7. 


procedure  StationaryPoint  ; 


var  step  :  integer  5 


(keep  track  of  position  in  beta  array) 


■ ,  f 


writelnt  'Do  you  want  to  sake  stationary  point  calculations  tor'  , 
'  response  surface'  )  j 
writet  'analysis  (y/n)  =*>')} 
repeat  {$1-}  readln<  choice2  )  Mis)  until  ioresult  =  I  5 
writeln  ; 

if  upcaset  choice?  )  3  'Y'  then  solvtXo  p  true  | 
if  solveXo  then 
begin 

writet  'Enter  the  nuaber  of  aain  effects  =0  ')  *, 
repeat  ($1-)  readlnt  f  )  til*)  until  ioresult  =  8  ; 
writeln  ; 
step  p  1  ; 
for  i  p  i  to  f  do 
begin 

8etali,i]  i»  blf+HiJ  |  ^ 

if  i  O  f  then 
begin 

for  j  p  i  ♦  1  to  f  do 

begin 

Betati.jJ  s>  M2lf  ♦  1  ♦  step)  /  2  ; 

BcUCj.il  p  Betati.jl  \ 
step  p  step  ♦  i  t 
end  5 
end  ; 
end  } 

InvertfiatrixBt  Beta,  Betalnverse,  f  )  ; 
drscr  j 
writeln  ) 

writelnt  'Beta  oatrix  follows!  '  )  j 
writeln  | 

for  i  p  1  to  f  do 
begin 

for  J  p  1  to  f  do 
writet  Betati(j)i8i4  )  \ 
writeln  { 
end  | 
writeln  j 
writeln  1 

writelnt  'Betalnverse  aatrix  follwsj  '  )  ; 
writeln  | 

for  i  p  I  to  f  do 
begia 

for  j  p  I  to  f  do 
writet  Betal&vcrse(i,ji:8id  )  j 
writeln  ; 
and  j 

pause  ; 
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VV  v..*% 


for  i  :=  1  to  f  do 
begin 

xcriili+13  :=  8  5 
for  j  s=  1  to  f  do 

xcritti+H  :=  xcritti+11  -  Betalnvnrselijjl  SE  b[j*U  ; 
xcritEHll  !=  xcritlitll  /  2  { 
er<d  ; 

xcritllJ  s=  1.8  | 
for  i  :=  -f+2  to  2*f  ♦  1  do 
xcritlil  !=  sgr(  xcritli-fl  )  5 
if  f  s  2  then  xcritlil  5=  xcritt21 3(  xcritt31  5 
if  f  =  3  then 
begin 

xcritl8J  :=  xcrit(23  SI  xcritC 33  5 
xcritUI  :=  xcritl2J  SE  xcrit(43  5 
xcritlltJ  j=  xcritC33  SE  xcritMl  ; 
end  5 

if  f  »  4  then 
begin 

xcritUI]  5=  xcritl23  SE  xcritt33  i 
xcrittlU  :=  xcritUI  SE  xcritMl  ; 
xcritE123  :»  xcritE23  SE  xcritE53  ; 
xcritC  131  !=  xcrit[33  SE  xcritt41  ; 
xcritlMl  :*  xcritE33  !  xcritCSJ  ; 
xcritliSl  *“  xcritt43  SE  xcriUSl  } 
end  | 

ycrit  1*  I  j 
for  i  1*  1  to  k  do 
ycrit  j=  ycrit  ♦  xcritlil  SE  blil  } 
end  | 

end  ;  (procedure  StatiooiryPoint) 


Sffl 
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} 


'( -  '  a  Trrm 

prxedure  DisplayResults  ; 


begin 

print  :=  talse  j 
write) n  ; 

«ritt(  'Do  you  went  hard-copy  <y/n>  =>  *  )  \ 
repeat  {$!-)  readlnt  choice  )  {$10  until  ioresult  =  8  $ 
writeln  5 

if  upcaset  choice  >  =  ‘V  then  print  :=  true  ; 
clrscr  j 

writelnt  'Estiaated  constant  tern  and  regression  confidents:'  )  ; 
it  print  then  writelnt  1st,  'Estimated  constant  torn  and  regression 
'coetticients:'  >  5 

writeln  ; 

it  print  then  writelnt  1st  >  j 
tor  i  1=  1  to  h  do 
begin 

writelnt  'B('  ,  i-)  bti)  )  ) 

it  print  then  writeln*  1st  ,  'B('  ,  i-i  Mil  ) 

end  { 

writeln  ; 

it  print  then  writeln*  1st  )  ; 
pause  j 
clrscr  j 
writeln  { 

writeln*  'Estimated  standard  errors:'  >  j 
writeln  ; 

it  print  then  begin 
writeln*  1st  )  : 

writeln*  1st  ,  'Estinated  standard  errors:'  )  j 
writeln*  1st  ) 
end  | 

tor  i  :«  1  to  k  do  begin 

writeln*  '8E('  ,  i  sqrt*  ev  X  wU.il  >  >  \ 

it  print  then  writeln*  1st  ,  '8E('  ,i,  ')»  '  ,sgrt(  ev  l  wti,i]  » 
end  | 
pause  ; 
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<% 


tii  0JH  .V 


if  anova  then 
begin 
clrscr  ; 
uritein  j 

uritelnt  'ANALYSIS  OF  VARIANCE')  ? 
uritein  ; 

urite1n<  '  Source  SS  d.f  NS  F'  >  j 

uritein  } 

uriielnt  'Regression  ',  SSRsI2s4,  <k-l)i8,  NSR:12s4,  (HSR  l  <n-k> 

/  (SSE  ♦  SSFit)  >:12:4  )  5 

uritein  ; 

uritelnt  'Lack  of  fit',  SSFitil2:4,  <n-k-p4l>:8,  HSFitsI2:4,  (MSFit/ 
NSE)  i  12:4  )  ; 

uritein  ; 

writelnt  'Error  SSEil2;4,  <p-l>:8,  NSEj12s4  )  } 
uritein  ; 
uritein  ; 

uriteln(  'Total  ',  SSTcorrected: 12:4,  <n-l):8  >  ; 
if  print  then 
begin 

uriteln(  1st  >  ; 

urite1n(  1st,  'ANALYSIS  OF  VARIANCE'  >  $ 

«riteln<  1st  )  i 

writeln(  1st,'  Source  SS  d.f  NS  F')  \ 

urite!n(  lst,'***®5*8*  —  =*= 

'  --MMi  m/  )  j 

uritelnt  1st  )  } 

uriteln<  1st,  'Regression  %  SSR:12:4,  (k-l>:8,  HSR> 12:4, 

(MSR/NSE) : 12:4  )  ; 
writeln<  1st  )  | 

uritelot  1st,  'Lack  of  fit',  SSFit: 12:4,  (e-k-p4l>;8,  NSFitsl2:4, 
<NSFi t/NSE) :  12:4  )  \ 
uriteln(  1st  )  ; 

uriteln<  1st,  'Error  SSE:12:4,  (p-l):8,  NSE:12i4  )  j 

eritelnt  1st  >  | 
uriteln<  1st  )  | 

uritelnt  1st,  'Total  ',  SSTcorrected: 12:4,  (n-l)i8  )  j 
uriteln(  1st  >  j 
writelnt  1st  )  ( 
end  ; 
pause  { 

; 
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if  solveXo  and  continue  then 
begin 
drscr  { 
writeln  ; 

Mriteln<  'Stationary  point  is  located  at:'  )  ; 
writeln  ; 

for  i  :»  2  to  f+1  do 

Mritelnt  '  X(',  i-i,  ')  =  ',  xcritlil:12:4  )  j 

uriteln  ; 

writelnt  'Dependent  variable  value  at  critical  point  is:'  )  ; 
writeln!  '  Yo  =  ',  ycrit:12:4  )  ; 
if  print  then 
begin 

uritelni  1st,  'Stationary  point  is  located  at:'  )  ; 
writelnt  1st  )  j 
for  i  :«  2  to  f+1  do 

writeln<  1st,  '  X<',  M,  ')  =  ',  xcrittiJ:l2:4  )  j 

Mritelnt  1st  )  ; 

writelnt  1st,  'Dependent  variable  value  at  critical  point  is:'  )  5 
writelnt  1st,  '  Yo  =  ',  ycrit:12:4  >  5 
end  { 
end  ; 

end  ;  {procedure  DisplayResultsl 

1  . ^ .  '  1  . . ""T  ■' . 

begin  {MAIN  PROGRAM  } 

Initialize  j 

uritelnt  'Enter  *d*  if  your  data  is  on  disk,  any  other  letter  for'  )  j 
write!  'keyboard  input  =3)  '  )  ; 
repeat  <*!-}  readlnf  choice  )  <$!+}  until  ioresult  =  I  ; 
if  upcase<  choice  )  ■  '0' 
then  UetOata 
else  EnterData  j 
FirstCalculatrons  j 
Orthogonal ize  1 
BackSolve  | 

VarianceCovariance  j 
SunOfSguarts  | 

StationaryPoint  } 

DisplayResults 
end  . 


3! 
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APPENDIX  H 

EXPERIMENT  INPUT  MATRICES 

This  appendix  describes  typical  design  matrices  and  input  -files. 
In  each  case,  a  summary  of  input  variable  ranges,  the  specific  design 
matrix,  results  from  AAPMOD  runs,  and  a  sample  input  file  for  PASCAL 
program  RESPONSE. PAS  are  provided.  The  following  designs  are  described: 

Section  1:  Initial  Screening  Design 
Section  2:  Follow-on  Screening  Design 
Section  3:  First-Order  RSM  Design 
Section  4:  Second-Order  RSM  Design 
Section  5:  Follow-on  Second-Order  RSM  Design 


INITIAL  SCREENING  DESIGN 


Screening  Design  —  Resolution  III  with  7  -factors,  3  replications  per 

design  point. 


+ 

- 

A 

Pr(arr ival ) 

0.99 

8.92 

B 

Weapon  type 

Mk-84 

Mk-82 

equiv.  crater  radius 

40/15  ft 

24/9  main 

runway 

50/28 

38/10  aux 

runway 

C 

Del  error  S/D 

300/150 

108/50 

REP/DEP 

202.5/181.25 

47. 5/33.75 

D 

Number  wpns 

12 

6 

E 

Wpn  re! iabi  1  i ty 

0.99 

8.59 

F 

Attack  heading 

178 

140 

6 

Weapon  spacing 

100 

50 

Pylons  were  spaced  28  -feet  apart.  N4REA  set  on  (no  overlap  search) 
NSAMP=200,  Standardized  attacks,  ballistic  dispersion  30/38  S/D, 
ballistic  dispersion  REP/DEP  20.25/20.25  — >  4800  ft  slant  range  tor 
5  mils  ballistic  dispersion 


Design  matrix? 


D 

E 

F 

6 

A 

B 

C 

AB 

AC 

BC 

ABC 

(1) 

-l 

-1 

-1 

1 

1 

1 

>1 

a 

1 

-1 

-1 

-i 

-1 

1 

1 

b 

-1 

1 

-1 

-1 

t 

-1 

1 

c 

-1 

-1 

1 

1 

-1 

-1 

1 

ab 

1 

1 

-l 

1 

-1 

-1 

-1 

a- 

1 

-1 

1 

-1 

1 

-1 

-1 

‘JV. 

-1 

1 

1 

-1 

-l 

1 

-1 

abc 

1 

1 

1 

1 

1 

1 

1 

AAPMOD  Results? 


RW1 

RW2 

Comb 

RW1 

RW2 

Comb 

Cell 

Rep 

Cut 

Cut 

Cut 

Crat 

Crat 

Crat 

l 

1 

.475 

.940 

.450 

1.445 

2.405 

1,185 

2 

.450 

.955 

.425 

1.788 

2.305 

1.170 

3 

.730 

.955 

,705 

2.030 

2.380 

1.430 

2 

1 

.308 

.440 

.140 

8.338 

0.480 

0.140 

2 

.280 

.415 

.  140 

0.385 

0,440 

0.140 

3 

,298 

,470 

.110 

0.335 

0.515 

0.110 

H  -  1  -  1 


Screening  Design  Resolution  IV  with  7  factors,,  3  replications  per 

design  point. 


+ 

- 

A 

Pr( arrival) 

0.?? 

8.92 

B 

Weapon  type 

Mk-84 

Mk-82 

equiv.  crater  radius 

48/15  ft 

24/9  main  runway 

50/28 

38/10  aux  runway 

C 

Del  error  S/D 

308/150 

180/58 

REP/DEP 

202.5/101.25 

67 . 5/33 . 75 

D 

Number  wpns 

12 

6 

E 

Wpn  rel iabil i ty 

0.9? 

0.59 

F 

Attack  heading 

170 

148 

G 

Weapon  spacing 

100 

50 

Pylons  were  spaced  20  -feet  apart.  NAREA  set  on  (no  overlap  search) 
NSAMP=200,  Standardized  attacks,  ballistic  dispersion  30/30  S/D, 
ballistic  dispersion  REP/DEP  20.25/20.25  — >  4800  •ft  slant  range 
at  5  mils 


Design  matrix: 


E 


G  F 


Results  -from  AAPMQD  runs: 


RW1 

RW2 

Comb 

RW1 

RW2 

Comb 

Cell 

Rep 

Cut 

Cut 

Cut 

Crat 

Crat 

Crat 

1 

1 

.250 

.485 

.  155 

8.240 

8.845 

0.155 

2 

.190 

.610 

.105 

'  3 

.258 

.415 

.145 

2 

1 

.755 

.740 

.550 

0.848 

8.965 

0.555 

2 

.725 

.825 

.605 

3 

.705 

.805 

.565 

3 

1 

.540 

.935 

.515 

1.060 

2.890 

0.958 

2 

.485 

.945 

.450 

3 

.540 

.990 

.550 

4 

1 

.085 

.540 

.050 

0.110 

0.625 

8.050 

2 

.055 

.515 

.030 

3 

.080 

.520 

.035 

5 

1 

.765 

.410 

.325 

1.458 

8.445 

8.340 

2 

.775 

.400 

.338 

3 

.755 

.375 

.270 

6 

1 

.525 

.735 

.355 

8.725 

8.960 

0.390 

2 

.545 

,445 

.335 

3 

.520 

.720 

.350 

7 

1 

,015 

.240 

.000 

8.028 

0.300 

8.000 

2 

.010 

.275 

.800 

3 

.010 

.285 

.005 

8 

1 

.735 

1.000 

.735 

2.080 

2.705 

1.505 

2 

.755 

.995 

.758 

3 

.770 

.975 

.745 

9 

1 

.070 

.440 

.040 

8.878 

0.525 

0.048 

2 

.095 

.375 

.025 

3 

.138 

.460 

.075 

10 

1 

.905 

.970 

.880 

1,528 

1.725 

1.220 

2 

.865 

.930 

.810 

3 

.905 

.940 

.845 

11 

1 

.470 

.795 

.385 

8.735 

1.545 

0.525 

2 

.360 

.735 

.260 

3 

.450 

.790 

.360 

12 

1 

.215 

.595 

.125 

8.325 

1.215 

0.140 

2 

.225 

.590 

.115 

3 

.225 

.635 

.115 

13 

1 

.915 

.955 

.875 

1.780 

1.999 

1.328 

2 

.915 

.915 

.840 

3 

.925 

.940 

.870 

14 

1 

.165 

.355 

.065 

0.170 

0.355 

0.065 

2 

.155 

.378 

.055 

3 

.145 

.360 

.055 

15 

1 

.205 

.700 

.150 

0.325 

1.210 

8.185 

2 

.205 

.705 

.155 

3 

.  150 

.710 

.095 

14 

1 

.460 

.975 

.450 

1.245 

1.825 

C  .735 

2 

.495 

.975 

.480 

3 

.505 

.965 

.490 

H  -  l  -  4 


FQLLQW-QN  SCREENING  DESIGN 

Screening  Design  —  Resolution  IV  with  7  -factors,  10  replications  per 

design  point 


+ 

- 

A 

Pr(arrival) 

0.99 

0.92 

B 

Weapon  type 

Mk-84 

Mk-82 

equiv,  crater  radius 

48/15  ft 

24/9  main  runway 

50/28 

30/10  aux  runway 

C 

Del  error  S/D 

300/150 

100/50 

REP/DEP 

202.5/101.25 

67. 5/33.75 

D 

Number  wpns 

12 

6 

E 

Wpn  rel iabil  ity 

0.99 

0.59 

F 

Attack  heading 

170 

140 

6 

Weapon  spacing 

100 

50 

Pylons  were  spaced  20  feet  apart.  NAREA  set  on  (no  overlap  search) 
NSAMP=288,  Standardized  attacks,  ballistic  dispersion  30/30  S/D, 
ballistic  dispersion  REP/DEP  20.25/20.25  »>  4000  ft  slant  range  for 
5  mils  ballistic  dispersion 


Design  matrix; 

Same  as  previous  Resolution  IV  design. 


AAPMQD  Output; 

Each  design  point  was  run  with  10  replications.  Probabilities  of 
cut  for  combined  runways  are  depicted. 


-DESIGN  POINT. 

Repl ication 

l 

2 

3 

4 

5 

6 

7 

8 

1 

9.398 

0.550 

0,650 

0.159 

0,359 

8.450 

0.000 

0,750 

2 

0,100 

0.700 

8.506 

0.900 

0,488 

0.250 

0.000 

0.780 

3 

9.150 

0.558 

0,659 

0.008 

8.580 

0.208 

0.000 

0.656 

4 

0.100 

0,550 

0.559 

6.088 

8.250 

0.458 

8,090 

0.980 

S 

0. 100 

8.650 

0.480 

0.008 

0.250 

0.359 

9.088 

0.809 

6 

8.200 

0,558 

8  .590 

0.S08 

0.209 

0.400 

8.000 

0.850 

7 

0.108 

8.406 

8.359 

0.188 

0.600 

8.150 

0.000 

0.708 

S 

0.158 

0 .459 

8  .650 

9,  100 

0.280 

0.350 

8.000 

0.550 

9 

0,250 

0.589 

0.450 

0.050 

0.580 

0.358 

0.000 

8.759 

10 

0.100 

8.688 

8.458 

0.069 

3.358 

8.500 

0.000 

8.708 

-DESIGN 

POINT- 

Repl ication 

1 

2 

3 

4 

5 

6 

7 

8 

1 

0.050 

0.958 

0.400 

0.150 

1.000 

0.058 

0.100 

0.450  . 

»  . 

2 

0.000 

0.900 

0.508 

8.150 

0.858 

0.088 

0.158 

0.400 

3 

0.000 

0.800 

0.550 

8.158 

0.850 

8.050 

0.208 

0.500 

w*, 

4 

0.058 

0.800 

0.280 

0.858 

0.850 

0.  100 

0.100 

0.650 

m 

5 

8.053 

0.900 

8.250 

0.100 

0.758 

0.050 

0.190 

0.480 

6 

0.108 

0.880 

0.300 

0.058 

8.950 

0.150 

0.150 

0.458 

7 

0.050 

0.850 

0.450 

8.308 

0.850 

0.050 

0.100 

0.480 

8 

0.050 

0.958 

0.380 

0.100 

1.030 

0.050 

8.150 

0.300 

9 

0.058 

0.900 

0.400 

8.150 

0.900 

0.100 

8.250 

0.500 

*  i 

10 

0.000 

0.950 

8.588 

0.350 

0.750 

0.050 

0.200 

0.450 

j 

Input  -file  f or  RESPONSE . PAS s 

The  •file  required  one-time  modifications  to  RESPONSE. PAS  due  to  the 
large  number  of  data  points.  The  input  ■file  was  similar  to  the  ones 
shown  previously.  In  this  case,  each  design  point  was  replicated  10 


times  with  appropriate  system  responses  inserted  as  before 


FIRST-ORDER  RSM  DESIGN 


First-Order  Response  Surface  Methodology  —  variables  to  -fit  were  weapon 
type,  weapon  reliability,  number  of  weapons  and  delivery  error. 


A 


Pr< arrival) 

Weapon  type 
equiv.  crater  radius 


D 

E 

F 

G 


Del  error  S/D 
REP/DEP 
Number  wpns 
Wpn  rel iabi  1  i ty 
Attack  heading 
Weapon  spacing 


+ 

8.935 
Mk-84 
48/15  ft 
56/20 
300/150 
202.5/101.25 
12 
0 .99 
155 
75 


0.955 

Mk-82 

24/9  main  runway 
30/10  aux  runway 
100/50 
67. 5/33.75 
6 

0.59 

155 

75 


Pylons  were  spaced  20  -feet  apart,  NAREA  set  on  (no  overlap  search) 
NSAMP=206,  Standardized  attacks,  ballistic  dispersion  30/38  S/D, 
ballistic  dispersion  REP/DEP  20.25/20.25  ==>  4008  ft  slant  range  for 
5  mils  ballistic  dispersion 


Fractional  factorial  design  matrix  (half  fraction): 


8 

C  D 

E 

-1 

-1  -1 

-1 

1 

1  -1 

-1 

-1 

-1  1 

1 

1 

-1  1 

-1 

1 

-1  -1 

l 

-i 

1  1 

-1 

-1 

1  -1 

1 

1 

1  1 

1 

Output : 

RW1 

RW2 

Comb 

RW1 

RW2 

Comb 

Cell 

Cut 

Cut 

Cut 

Crat 

Crat 

Crat 

1 

.340 

.558 

.215 

0.355 

8.620 

8.215 

2 

.100 

.465 

.065 

0.021 

0.035 

0.017 

3 

.980 

.910 

.395 

2.550 

1.415 

1.310 

4 

.905 

.865 

.780 

1.585 

1.290 

0.950 

5 

.875 

.990 

.865 

1.925 

2.225 

1.500 

6 

.275 

.445 

.  135 

0.305 

0.525 

0.140 

7 

.  195 

.530 

,085 

0.250 

0.635 

0.090 

8 

.740 

.950 

.700 

1.600 

2.010 

1.175 

H  -  3  -  1 
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First-Order  Response  Methodology  -fitting  delivery  error,  weapon 
reliability,  attack  heading, 'and  weapon  spacing. 

Crater  radii  were  updated  -for  this  and  subsequent  analyses.  The 
new  -figures  are  displayed  below.  Weapon  type  and  number  o-f  weapons  were 
■fixed  -for  this  analysis,  but  several  combinations  were  o-f  interest.  The 
entire  -first-order  RSM  analysis  was  run  -for  12  Mk-82  bombs  and  then  -for 
6  Mk-84  bombs. 


A 

Pr(arrival) 

0.95 

0.95 

B 

Weapon  type 

Mk-84  — OR- 

-  Mk-82  analyzed 

equiv.  crater  radius 

28.8/13.8 

17.6/7.6  main 

38/15 

28/18  aux  i 

C 

Del  error  S/D 

380/150 

180/58 

D 

Number  wpns 

12  — OR —  6  analyzed 

E 

Wpn  rel iabil ity 

0.99 

0.59 

F 

Attack  heading 

170 

140 

6 

Weapon  spacing 

108 

50 

runway 

runway 

separatel y 


Pylons  were  spaced  20  feet  apart.  NAREA  set  on  (no  overlap  search) 
NSAMP=208,  Standardized  attacks,  ballistic  dispersion  30/30  S/D, 
ballistic  dispersion  REP/DEP  28.25/28.25  =0  4088  ft  slant  range  for 
5  mils  ballistic  dispersion 


Fractional  factorial  design  matrix  (half  fraction)! 


new  -figures  are  displayed  below.  Weapon  type  and  number  of  weapons  were 
fixed  for  this  analysis,  but  several  combinations  were  of  interest.  The 
entire  first-order  RSM  analysis  was  run  for  12  Mk-82  bombs  and  then  for 
6  Mk-84  bcmbs. 


+ 

A  Pr(arrival)  0.95  0.95 

B  Weapon  type  Mk-84  — OR —  Mk-32  analyzed  separately 

equiv.  crater  radius  28.8/13.8  17.6/7.6  main  runway 

30/15  20/16  aux  runway 

C  Del  error  S/D  300/150  180/50 

D  Number  wpns  12  — OR —  6  analyzed  separately 

E  Wpn  reliability  8.99  8.59 

F  Attack  heading  178  140 

6  Weapon  spacing  100  50 

Pylons  were  spaced  20  feet  apart,  NAREA  set  on  <no  overlap  search) 
NSAMP=208,  Standardized  attacks,  ballistic  dispersion  38/30  S/D, 
ballistic  dispersion  REP/DEP  28.25/20,25  ==>  4008  ft  slant  range  for 
5  mils  ballistic  dispersion 


Fractional  factorial  design  matrix  (half  fraction): 

C  E  F  G 


-1 

-1 

-1 

-1 

1 

1 

-1 

-1 

-1 

-l 

1 

1 

1 

-1 

1 

-l 

1 

-1 

-1 

1 

-t 

1 

1 

-1 

-1 

1 

-1 

1 

l 

1 

1 

1 

SECOND-ORDER  RSM  DESIGN 

Initial  Second-Order  RSM 


-2 

-1 

0 

+  1  +2 

A 

Pr(arrival) 

0.95 

0.95 

0.95 

8.95  0.95 

B 

Weapon  type 

Mk-84 

—OR- 

■  Mk-82  analyzed  separately 

equiv,  crater  radius 

28.8/13.3 

17.6/7 

.6  main  runway 

38/15 

28/18 

aux  runway 

C 

Del  error  S/D 

0/9  150/75  300/150 

450/225  680/300 

D 

Number  wpns 

12 

— OR- 

•  6  . 

analyzed  separately 

E 

Wpn  reliability 

0.59 

8.69 

0.79 

8.89  8.99 

F 

Attack  heading 

90.0 

112.5 

135.0 

157.5  180.0 

6 

Weapon  spacing 

20 

48 

60 

88  108 

Pylons  were  spaced  28  -feet  apart.  NAREA  set  on  (no  overlap  search) 
NSAMP=200,  Standardized  attacks,  ballistic  dispersion  38/30  S/D, 
ballistic  dispersion  REP/DEP  28.25/28,25  — >  4088  -ft  slant  range  -for 
5  mils  ballistic  dispersion 


Central  Composite  Design  •for  4  variables  and  7  center  points: 


C 

E 

~  8 

CC 

EE 

FF 

GG  CE  CF 

CB 

EF 

EG 

FG 

-1 

-1  - 

«*•  1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

-1  - 

*1 

1 

1 

1 

1  - 

-1 

-1 

1 

1 

1 

«  i 

l  - 

tm  1 

1 

1 

1 

1  - 

1 

1 

-1 

•  1 

1 

1 

l  - 

-1 

1 

1 

1 

1 

•  ! 

-1 

«  1 

1 

-1 

1 

1 

1 

1 

-1 

1 

-1 

1 

-1 

1 

-1 

“I 

1 

l 

1 

1  - 

1 

-1 

-1 

1 

-1 

-1 

1 

l 

I 

1 

1 

•  1 

1 

1 

- 1 

- 1 

1 

1 

1 

1 

1 

1 

1 

t 

1 

l 

1 

1 

1 

1 

1 

-1 

1 

1 

-1 

-1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

_  j 

1 

1 

1 

1 

l  - 

l 

-J 

-  j 

1 

“1 

1 

1 

1  - 

1 

1 

1 

1 

1 

1 

| 

l 

1 

1 

1 

l 

-1 

1 

1 

i 

l 

1 

1 

1 

1 

1 

l 

1 

w  J 

1 

l 

1 

1 

l 

-I 

- 1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

-2 

0  0  0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

2 

0  8  0 

4 

0 

0 

0  0  0 

0 

0 

0 

0 

0 

-2  0  0 

0 

4 

0 

0  0  0 

8 

0 

0 

0 

0 

2  0  8 

0 

4 

8 

0  0  0 

0 

0 

0 

0 

0 

0 

l  8 

0 

0 

4 

0 

)  0 

8 

0 

0 

0 

0 

0 

’  0 

0 

0 

4 

0  0  0 

0 

8 

0 

0 

8 

0  0  -2 

0 

0 

0 

4  0  0 

0 

0 

0 

0 

0 

0  0  2 

0 

0 

0 

4  8  0 

0 

8 

0 

0 

H  -  4  -  1 


FOLLOW-ON  SECOND-ORDER  RSM  DESIGN 


Follow-on  Second-Order  RSM 


-2 

-1 

0  +1  +2 

A 

Pr< arrival) 

0.95 

8.95 

0.95  0.95  0.95 

B 

Weapon  type 

Mk-84 

—OR- 

■  Mk-82  analyzed  separately 

equiv.  crater  radius 

28.8/13.8 

17.6/7.6  main  runway 

30/15 

28/18  aux  runway 

C 

Del  error  S/D 

8/0  75/37.5 

150/75  225/112.5  300/150 

D 

Number  wpns 

12 

— 0R-- 

6  analyzed  separately 

E 

Wpn  rel iabil i ty 

0.79 

0.84 

0.89  0.94  0.99 

F 

Attack  heading 

135.0 

146.3 

157.5  168.7  180.0 

G 

Weapon  spacing 

60 

70 

80  90  100 

Pylons  were  spaced  20  -feet  apart.  NAREA  set  off  (overlap  search) 
NSAMP=208,  Standardized  attacks,  ballistic  dispersion  30/30  S/D, 
ballistic  dispersion  REP/DEP  20,25/20.25  — >  4000  -ft  slant  range  for 
5  mils  ballistic  dispersion 


Design  Matrix:  same  as  initial  second-order  RSM 


AAPMQD  Output  <MK-82>  including  expected  area  to  fill: 


RW1 

RW2 

Comb 

RW1 

RW2 

Comb 

RW1 

RW2 

Comb 

Cell 

Cut 

Cut 

Cut 

Crat 

Crat 

Crat 

Fill 

Fill 

Fill 

1 

0.715 

0.630 

0.430 

8.945 

0,785 

8.468 

340 

317 

151 

2 

0.530 

8.600 

0.335 

0.595 

8.675 

8.350 

214 

248 

128 

3 

0.845 

0.710 

0,600 

1.275 

8,850 

0,655 

492 

347 

227 

4 

0.595 

0,650 

0.375 

8.775 

0.810 

0.395 

294 

331 

134 

5 

0.875 

0.720 

0.636 

2.129 

0.870 

0.738 

856 

370 

297 

6 

0.360 

0.665 

0.270 

0.535 

8.775 

0,295 

202 

293 

102 

7 

0.925 

0.755 

0.700 

2.470 

8.915 

8,815 

1040 

365 

306 

8 

0.385 

0.689 

0.270 

0.635 

9.875 

8.310 

241 

356 

107 

9 

0,485 

0.515 

8.255 

0.520 

0.575 

8.255 

183 

224 

36 

10 

0.490 

0.475 

0,190 

0.430 

8.528 

0.199 

141 

191 

65 

11 

0,645 

0.538 

0.355 

8.755 

0.560 

0.369 

276 

209 

119 

12 

8.530 

0.575 

0.320 

0.590 

0.625 

8.325 

209 

237 

106 

13 

0,915 

0.540 

0.510 

2.230 

0.590 

0.545 

945 

229 

205 

14 

0.445 

0.485 

0.210 

0.658 

0.505 

3.218 

229 

117 

72 

15 

0.960 

0.605 

0.590 

2.785 

0.665 

0.625 

1194 

250 

216 

16 

0.510 

0.635 

0.340 

0.385 

0.720 

0.355 

348 

259 

124 

17 

0.795 

0.555 

8.435 

1.229 

0.645 

0.470 

470 

232 

159 

18 

8.465 

0.555 

.0.298 

0.625 

0.665 

0.300 

237 

245 

106 

l? 

0.750 

0.595 

8.445 

1.055 

0.648 

8.455 

401 

229 

142 

20 

8.875 

8.725 

0.630 

1.560 

0.898 

0.705 

648 

362 

264 

H  -  5  -  l 


■;>  21 

0.475 

8.465 

0.330 

0.515 

0.765 

8.335 

.v;  22 

9.255 

0.780 

0.145 

0.395 

0.885 

0.185 

■;>  23 

0.825 

0.775 

0.645 

1.488 

1.065 

0.785 

:■>:  24 

0.770 

8.515 

0.405 

1.038 

0.548 

0.418 

In  25 

0.825 

0.685 

8.580 

1.318 

0.745 

0.608 

P  26 

0.808 

0.435 

0.580 

1.380 

8.755 

0.565 

C<  27 

0.820 

0.665 

8.550 

1.300 

8.790 

0.615 

S-;  28 

0.790 

0.440 

8.495 

1.395 

8.715 

0.530 

2? 

0.790 

0.485 

0.490 

1.245 

8.665 

0.528 

;v’  30 

0.855 

0.450 

0.570 

1.390 

0.745 

0.615 

Sm 

0.825 

0.430 

8.520 

1.385 

0.735 

8.560 

\<\  » 

Sample 

Input  File  ■for 

RESPONSE. PAS: 

31 

4*4  14 

r 


-i  -1 
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APPENDIX  J 


SELECTED  EXPERIMENT  RESULTS 


This  appendix  contains  selected  output  -from  the  response  surface 
methodology  program  located  at  Appendix  S„  The  output  consists  of 
regression  (sometimes  known  as  beta)  coefficients  which  de-fine  the 
regression  equations  which  are  to  explain  the  input  data.  For  second- 
order  response  sur-face  methodology,  analysis  o-f  variance  (ANOUA)  and 
stationary  point  data  are  included.  These  are  explained  in  Chapter  Mill 
o-f  the  thesis. 

The  exact  -form  o-f  the  regression  equation  for  a  particular  analysis 
can  vary,  but  the  resolution  III  first-order  regression  equations  take  a 
form  similar  to  the  following: 

y  -  b,  .  b,»,  .  bjx?  *  b3x3  *  b4x„  ♦  b5x5  ♦  b4x4  .  b^j 


where  y  is  the  predicted  system  response  (probability  of  cut,  etc.) 
bj  is  a  regression  coefficient  for  i  a  8,  ...  ,7 
Xj  is  a  coded  independent  variable  for  i  »  i,  ...  ,7 


Screening  Design  —  Resolution  III  with  7  Factors: 


Regression 

Coefficient 

b<9> 
b<  1> 
b(2> 
b(3) 
b<4) 
b<3> 
b<6> 


RW1 

RW2 

Cut 

Cut 

0.435 

8.684 

8.918 

0.828 

9.135 

8.128 

8.254 

-8.135 

0.180 

8.126 

8.899 

8,149 

8.866 

0.009 

Comb 

RWt 

Cut 

Crat 

0.376 

6.826 

0.882 

8.836 

0.159 

0.261 

8.239 

-8,439 

0.126 

8.349 

0.189 

8,286 

6,061 

-0.806 

RW2 

Comb 

Crat 

Crat 

1 .218 

0.569 

-8.826 

-8.889 

0.287 

0.219 

-0.482 

-0.362 

0.428 

8.248 

8.359 

8.192 

0.189 

-0.849 

.iH . 


Screening  Design  —  Resolution  IV,  7  Factors  with  10  Replications  -for 
Each  of  16  Design  Points.  Due  to  the  large  amount  of  data,  contained 
probability  of  cut  for  runways  #1  and  #2  is  evaluated. 


Regression 

Coefficient 


b<0) 
b(l) 
b<2> 
0(3) 
b<4) 
b<5) 
b<6) 
b<7) 
b<8) 
b<9) 
b(16) 
bell) 
b<12) 
b<  13) 
b<  14) 
b<  15) 


8.355 

0.038 

0.868 

-0.197 

0.133 

-0.012 

-8.836 

0.086 

-0.834 

0.034 

-0.023 

0.186 

0.042 

-0,013 

-8.029 

0.019 


v:  \  S 
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a 
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First-Order  Response  Surface  Methodology 

The  -following  regression  coe-f-ficients  -fit  weapons  type,  number  o-f 
weapons,  weapon  reliability,  and  delivery  error  to  system  responses. 


Regression 

RWI 

RW2 

Comb 

RWi 

RW2 

Comb 

Coefficient 

Cut 

Cut 

Cut 

Crat 

Crat 

Crat 

b<8) 

8 .551 

8.713 

8.468 

8.109 

1.094 

8.675 

b(i) 

8.184 

8.184 

8.135 

8.221 

8.296 

0.236 

b<2) 

-8.223 

-8.116 

-8.221 

-3.542 

-8.293 

-0.319 

b<3) 

8.174 

8.879 

8.168 

8.449 

8.216 

0.219 

b<4> 

8.146 

8.132 

8.169 

0.495 

8.477 

8.344 

First-Order  Response  Sur-face  Methodology 


The  following  regression  coefficients  fit  delivery  error,  weapon 
reliability,  attack  heading,  and  weapon  spacing  to  system  responses. 


Mk-82  Analysis 


Regression 

RWI 

RW2 

Comb 

RWI 

RW2 

Comb 

Coefficient 

Cut 

Cut 

Cut 

Crat 

Crat 

Crat 

b<8) 

0.408 

8.537 

8.244 

8,598 

0.715 

8.265 

b<  1) 

-8.197 

-8.769 

-9.126 

-8.388 

-0.151 

-0.159 

b(2> 

8.063 

0.163 

0.098 

0.134 

0.294 

8.138 

b<3> 

8.039 

8.819 

0.816 

8 . 199 

8.89  V 

0.051 

b<4> 

0.802 

-8.131 

-8.868 

-6.823 

-8*286 

-0.898 

Mk-84  Analysis 

Regression 

RWI 

m2 

Comb 

RWI 

RW2 

Comb 

Coefficient 

Cut 

Cut 

Cut 

Crat 

Crat 

Crat 

b<8) 

0.328 

8.516 

8.282 

8.408 

8.724 

0.238 

b<» 

-8.203 

-8.143 

-8 , 152 

-0.274 

-0.261 

-8.179 

b(2> 

0.111 

0.137 

8.181 

9.178 

8.2  66 

0.128 

b<3) 

-8.826 

8.898 

-8.813 

-0.081 

0.073 

0.889 

b<4> 

8.084 

-8.852 

-8.881 

0.825 

-8.198 

-0 .823 

••  v| 
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Second-Order  Response  Surface  Methodology 


The  following  regression  coefficients  fit  delivery  error,  weapon 
reliability,  attack  heading,  and  weapon  spacing  to  system  responses. 
The  same  four  independent  variables  will  be  used  for  the  remainder  of 
the  analysis. 

Mk-82  Results 


Regression 

RW1 

RW2 

Comb 

RW1 

RW2 

Comb 

Coefficient 

Cut 

Cut 

Cut 

Crat 

Crat 

Crat 

b<8> 

9.235 

0.528 

8.126 

8.254 

8.651 

6.128 

b<  1) 

-0.155 

-0 . 133 

-0.124 

-8,226 

-8.248 

-0 . 145 

b<2> 

0.066 

0.862 

8.861 

9.111 

0.140 

0.877 

b(3> 

0.052 

-8.833 

6.824 

8.114 

-0 . 123 

0.035 

b<4) 

-0.015 

8.036 

-8.026 

-0.042 

-0.19? 

-0.046 

b<5> 

0.011 

-0.820 

6.012 

0.024 

-0.022 

0.016 

b  <6> 

9.024 

8.003 

0.824 

0.043 

8.81? 

0.038 

b<7) 

-0.813 

0.043 

8.001 

8.003 

0.133 

0.086 

b<8) 

-0.004 

-0.016 

8.002 

8.014 

0.021 

0.007 

b<?> 

-0.024 

-0.812 

-0.041 

-0.078 

-0.048 

-0.063 

b<  18) 

-0.85? 

8.006 

-0.036 

-8 . 135 

0.038 

-0.051 

b<  11) 

8.828 

0.038 

8.843 

0.062 

8.181 

0.072 

b<  12) 

0.003 

-8,085 

8 .086 

8.045 

-0.034 

0.014 

b<  13) 

0.816 

0.00? 

0.014 

0.083 

-0.04? 

-0.004 

b<  14) 

0.071 

-0.811 

8.03? 

0.865 

0.016 

0.026 

The  following  analyses  of  variance  use  the  center  point  variance  to 
calculate  statistics  for  lack  of  fit  and  regression.  This  was  later 
modified  such  that  lack  of  fit  was  compared  to  center  point  error 
variance,  but  regression  sum  of  squares  was  compared  to  the  combination 
of  center  point  variance  and  lack  of  fit.  The  F-vaiues  change,  but  the 
p-value  remains  approximately  the  same  due  to  the  increased  number  of 
degrees  of  freedom.  This  appendix  contains  results  using  the  older 


method. 


# 


Runway  1  —  Probability  o f  Cut 


A  N  A  L  Y  S  I  S 

0  F 

VARIANCE 

Source 

Sura  of  Squares 

d.f . 

Mean  Squares 

F 

P 

Regression 

8.9388 

14 

8.8671 

96.953 

8.0000 

Lack  of  Fit 

0.2774 

19 

8.8277 

48.188 

8.0001 

Error 

8.8042 

6 

8.8887 

Total 

1.2283 

38 

STATIONARY  POINT  ANALYSIS 

The  stationary  point  is  located  at: 

x<l>  *  2.9282 

x(2)  9  -8.3345 
x<3)  =  -8.6945 
x<4>  *  1 . 4739 

with  a  probability  of  cut  of: 

y«  -8.8312 


BaoaaLA.  ~  Juafeafeil  Ux-ai  J&t 


A  N  A  L  Y  S  I  S 

0  F 

VARIANCE 

Source 

Sum  of  Squares 

d.f. 

Mean  Squares 

F 

P 

Regression 

0.6883 

14 

8.8486 

33.928 

0.9862 

Lack  of  Fit 

8.1142 

18 

3.0114 

7.977 

8.0897 

Error 

8.8886 

6 

8.8814 

Total 

8.8831 

30 

S 

TAT  I  ONARY 

P  0  I 

NT  ANALYS 

1  S 

The  stationary  point  is  located  at: 

x<t>  -  32.6831 
x<2>  =  2.3116 

x<3>  *  3.3842 

x<4>  »  37.4168 


with  a  probability  o-f  cut  of: 

y  =•  -2.2867 


*„*V  *.*  0*V** 
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Combined  Runways  — 

Probability  of  Cut 

A  N  A  L  Y  S  I  S 

0  ! 

r  VARIANCE 

Source 

Sum  of  Squares 

d.f 

.  Mean  Squares 

F 

P 

Regression 

0.6120 

14 

0.0437 

126.636 

9.0000 

Lack  of  Fit 

8.1953 

10 

8.0195 

56.572 

8.8800 

Error 

0.0021 

6 

8.3803 

Total 

6.8894 

30 

STATIONARY 

P  0 

INT  ANALYS 

I  S 

The  stationary  point  is  located 

at : 

x<l) 

a 

1.6829 

x<2> 

ss 

0.8144 

x<3) 

a 

-1.2578 

x<4> 

= 

8.9393 

with  a  probability  of  cut  of: 

y 

s 

-0.8952 

Runway  1  —  Expected  Number  of  Craters  to  Fill 


ANALYSIS 

0  F 

VARIANCE 

Source 

Sum  of  Squares 

d.f. 

Mean  Squares 

F 

P 

Regression 

2.4956 

14 

8 . 1783 

153.429 

0.0000 

Lack  of  Fit 

0.8176 

10 

0.0818 

70.369 

0.0000 

Error 

0.0670 

6 

0.0012 

Total 

3.3282 

38 

S  T 

A  T  I  0  N  A  R  Y 

P  0  I 

NT  ANALYS 

I  S 

The  stationary  point  is  located  ati 

x<l>  ■  1 .3371 

x<2>  =  0.5835 

x<3)  »  -1.8714 
x<4)  a  8,8697 

with  an  expected  number  of  craters  to  -fill* 

y  »  O.0463 


J  -  7 
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Runway  2  —  Expected  Number  of  Craters  to  Fill 


A  N  A  L  Y  S  1  S 

0  F 

VARIANCE 

Source 

Sum  of  Squares 

d.f . 

Mean  Squares 

F 

Regression 

4.4684 

14 

8.3186 

140.339 

Lack  of  Fit 

8.5946 

19 

0.8597 

26.280 

Error 

8.0136 

6 

8.0023 

Total 

5.0707 

38 

S  T 

A  T  I  0  N  A  R  Y 

P  0  1 

NT  ANALYS 

I  S 

The  stationary 

point  is  located 

at: 

X<1) 

=  0 

.3539 

x<2>  *  -1.9384 
x<3)  =  0.1110 

x<4>  *  8.9233 

with  an  expected  number  of  craters  to  fill: 

/  ■  0.3727 

Cogbingd  --.SmcVed  i&H>fegT  Jit 


A  N  A  L  Y  S  I  S 

0  F 

VARIANCE 

Source  Sum 

of  Squares 

d.f. 

Mean  Squares 

F 

Regression 

8.9585 

14 

3.8685 

194.288 

Lack  of  Fit 

0.2944 

18 

0.0294 

84.480 

Error 

0.8021 

6 

0.8003 

Total 

1.2558 

38 

S  T  A  T 

I  0  N  A  R  Y 

P  0  I 

NT  ANALYS 

I  S 

The  stationary  point  is  located  at: 

x<i>  «  0.8424 

x<2>  =»  -0.8734 
x  <  3)  «  -1.0514 
x<4)  »  3.8377 


P 

8.8900 

0.8094 


P 

0.0090 

0.0000 


with  an  expected  number  of  craters  to  fill: 


Second-Order  Response  Surface  Methodology  —  Reduced  Surface 


The  following  regression  coefficients  fit  delivery  error,  weapon 
reliability,  attack  heading,  and  weapon  spacing  to  system  responses. 


Mk-82  Results 


RW1 

RW2 

Comb 

RW1 

RW2 

Comb 

RW1 

RW2 

Cottb 

Cceff 

Cut 

Cut 

Cut 

Crat 

Crat 

Crat 

Fill 

Fill 

Fill 

b(8) 

.815 

.644 

.529 

1.319 

.736 

.572 

528 

282 

286 

b<  1) 

-.136 

-.018 

-.085 

-.383 

-.011 

-.098 

-163 

-11 

-36 

b<2) 

.838 

.032 

.845 

.  131 

.851 

.854 

62 

26 

28 

b(3) 

.888 

.828 

.814 

.258 

.831 

.825 

118 

13 

13 

b<4) 

-.819 

-.865 

-.055 

-.059 

-.119 

-.879 

-22 

-58 

-30 

b(5) 

-.349 

-.026 

-.045 

-.874 

-.029 

-.051 

-30 

-15 

-19 

b  <6> 

-.884 

-.000 

-.881 

.022 

-.802 

-.802 

12 

-2 

-2 

b<7) 

-.116 

.805 

-.074 

-.191 

.813 

-.882 

-76 

10 

-30 

b(8) 

-.887 

-.884 

-.804 

.009 

.888 

.062 

2 

7 

-1 

b<9) 

-.806 

.088 

-.888 

-.058 

.024 

-.008 

-23 

19 

-2 

b<  18) 

-.084 

-.004 

-.058 

-.362 

-.002 

-.867 

-161 

-6 

-29 

b(  1 1) 

.823 

.313 

.829 

.033 

.817 

.038 

6 

4 

16 

b<  12) 

-.819 

.801 

-.818 

.821 

.039 

-.018 

12 

5 

-5 

b<  13) 

.888 

.089 

.010 

.814 

.002 

.008 

5 

1 

3 

b<  14) 

.857 

-.084 

.025 

.138 

-.007 

.820 

57 

-9 

4 
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ANALYSIS  OF  VARIANCE 


Source 

Sum  of  Squares 

d.f . 

Mean  Squares 

F 

P 

Regression 

1.0985 

14 

8.0785 

142.662 

0.0000 

Lack  of  Fit 

8. 8867 

10 

0.0887 

15.766 

0.2315 

Error 

0.0033 

6 

0.0806 

Total 

1.1885 

30 

STAT  I  ONARY 

P  0  I 

NT  A  N  A  L  Y 

S  I  S 

The  stationary  point  is  located  at: 

x<l>  =•  -1.9742 

x<2>  =  6. 2748 

x<3>  -  8.3839 

x<4)  a  8.2587 

with  a  probability  of  cut  of: 

ya  i  .8686 


J  -  9 


ANALYSIS  OF  VARIANCE 


Source 

Sum  of  Squares 

d.f 

.  Mean  Squares  F 

Regression 

8 . 1646 

14 

8.0119  17.980 

Lack  of  Fit 

8.0118 

18 

8.8811  1.664 

Error 

8.8040 

6 

0.6007 

Total 

8.1814 

38 

S  T  A  T  I  0  N  A 

R  Y 

P  0 

I  N  T 

ANALYSIS 

The  stationary  point  is  located  at: 

x(l) 

=  • 

-0.0328 

x<2) 

= 

3.4424 

x<3) 

=  - 

-3.2109 

x<4) 

=  • 

-2.7520 

with  a  probability  of  cut 

of: 

y 

3 

8.7588 

Combined  Runways  —  Probability  of  Cut 


ANALYSIS 

OF  VARIANCE 

Source 

Sura  of  Squares 

d.f.  Mean  Squares  F 

Regression 

0.5812 

14 

8.0415  29.931 

Lack  of  Fit 

8.8739 

18 

8.0874  5.332 

Error 

8.8083 

6 

8.0814 

Total 

8.4634 

36 

STATI  ONARY 

POINT 

A  N  A  L  Y  S  1  S 

The  stationary  point  is  located 

at: 

x<  !> 

=  -3.2096 

x<2) 

“  11.3414 

x<3) 

*  -0.1812 

x<4) 

=  -4.4635 

with  &  probability  of  cut  of: 

y  =  1.8454 
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P 

8.8818 

8.2753 


P 

8.8882 

8.8265 


Source 

Sum  of  Squares 

d.f . 

Mean  Squares  F 

P 

Regression 

9.2691 

14 

8.6621  258.291 

8.8888 

Lack  of  Fit 

1.8598 

18 

8.1868  78.387 

8.8888 

Error 

8.8159 

6 

8.8826 

Total 

1 1 . 1448 

38 

S  T 

A  T  1  0  N  A  R  Y 

P  0  I 

NT  ANALYSIS 

The  stationary 

point  is  located 

at: 

x<l)  =  16.3333 

x<2)  =  12.9911 

x<3>  *  -7.7877 

x<4)  =  18.5375 

with  an  expected  number  o f  craters  to  -fill; 

y  =  -2.5818 


ANALYSIS 

0  F 

VARIANCE 

Source 

Sum 

of  Squares 

d.f. 

Mean  Squares 

F 

P 

Regression 

8.4771 

14 

8.8341 

22.918 

8.8885 

Lack  of  Fit 

8.8288 

18 

8.8828 

1.886 

0.2258 

Error 

8.3889 

6 

8.8815 

Total 

8.5148 
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S  T 

A  T 

I  0  N  A  R  Y 

P  0  l 

NT  ANALYS 

I  S 

The  stationary 

point  is  located 

at: 

x<l)  =*  8.5885 

x(2)  *  28.9471 
x<3)  -  -13.9772 
x<4)  «  -12.3555 


with  an  expected  number  of  craters  to  fill: 


Combined  Runways  —  Expected  Number  of  Craters  to  Fill 


ANALYSIS 

0  F 

VARIANCE 

Source 

Sum  of  Squares 

d.f . 

Mean  Squares 

F 

P 

Regression 

0.8259 

14 

8.0590 

38.715 

0.0001 

Lack  of  Fit 

0.0991 

10 

0.0099 

6.503 

0.0163 

Error 

0.9891 

6 

0.0015 

Total 

0.9342 

30 

STATIONARY  POINT  ANALYSIS 


The  stationary  point  is  located  at: 

x( i)  =  -1.6356 
x<2)  *  17.0713 
x<3)  =  0.0215 

x<4)  *  1.7389 

with  an  expected  number  of  craters  to  -fill: 

y  =  1.0481 
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ANALYSIS 

0  F 

VARIANCE 

Source 

Sum  of  Squares 

d.f. 

Mean  Squares 

F 

P 

Regression 

1754988 

14 

125355 

242.624 

0.0000 

Lack  of  Fit 

369613 

18 

36961 

71.538 

0.0000 

Error 

3100 

6 

517 

Total 

2127693 
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STATI  ONARY 

P  0  I 

NT  A  N  A  L  Y 

S  I  S 

The  stationary  point  is  located  at: 

x<i>  «  -13.2265 
x<2>  a  -12.9150 
x<3>  ■  4,8556 

x<4)  »  -23.8011 


with  an  expected  area  to  fill: 


Runway  2  —  Expected  Area  to  Fill 


A  N  A  L  Y  S  I  S 

0  F 

VARIANCE 

Source 

Sun  of  Squares 

d.f . 

Mean  Squares 

F 

P 

Regression 

127835 

14 

9877 

13.557 

8.8821 

Lack  of  Fit 

12288 

18 

1228 

1.822 

i . 2389 

Error 

4817 

6 

678 

Total 

143383 
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STATIONARY  POINT  ANALYSIS 


The  stationary  point  is  located  at: 

x<l>  *  -3.8949 
x<2)  =  -4.4726 
x<3)  =  3.3158 

x<4>  *  7.6749 

with  an  expected  area  to  fill: 

y  »  12.8886 


CoffibinedRunways  "  Expected  Area  to  .Fill 


ANALYSIS 

0  F 

VARIANCE 

Source 

Sun  of  Squares 

d.f. 

Mean  Squares 

F 

P 

Regression 

119788 

14 

8556 

31.987 

8.8882 

Lack  of  Fit 

18485 

18 

1849 

6.911 

8.8148 

Error 

1485 

6 

267 

Total 

139871 

38 

STATIONARY  POINT  ANALYSIS 

The  stationary  point  is  located  at: 

x<t>  -  8.8837 

x<2)  =>  9.2654 

x<3)  »  -8.6872 

x<4>  »  4.1461 

with  an  expected  area  to  fill: 


y  =  214.5446 
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MK-84  Results 


Combined  Runways  —  Probability  of  Cut 


ANALYSIS 

0  F 

VARIANCE 

Source 

Sum  of  Squares 

d.f . 

Mean  Squares 

F 

P 

Regression 

1 . 1896 

14 

8.0793 

61.189 

0.0000 

Lack  of  Fit 

0.8499 

10 

0.8050 

3.855 

8.1159 

Error 

0.0078 

6 

0.0013 

Total 

1.1673 

30 

STATIONARY  POINT  ANALYSIS 

The  stationary  point  is  located  ati 

x<i>  *  25.2622 
x<2)  =  2.4511 

x(3)  =  1.2563 

x<4)  *  11.8698 


with  a  probability  of  cut  ofj 


-1.9638 
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APPENDIX  K 


GLOSSARY 


AAA  -  Anti -aircraft  artillery 

AAP  -  Attack  Assessment  Program 

AAPMOD  -  Attack  Assessment  Program— MODIFIED 

AAPMSN  -  Used  to  generate  AAPMOD  mission  input  -file 

AAPTGT  -  Used  to  create  and  maintain  AAPMOD  target  databases 

AAPWPN  -  Used  to  create  and  maintain  AAPMOD  weapon  and  pattern  databases 

AFB  -  Air  Force  Base 

AFIT  -  Air  Force  Institute  of  Technology 

aggregated  -  specific  data  which  is  summarized  into  more  general  form  to 
reduce  input  requirements  for  simulation  models.  For  instance,  the 
number  of  tanks  destroyed  might  be  the  value  of  interest  in 

simulations  of  a  specific  battle  while  tons  of  munitions  might  be 
the  indicator  of  a  similar  statistic  for  a  theater-level  model. 

AHAB  -  Attacking  Hardened  Air  Bases,  a  RAND  simulation  model 

algorithm  -  a  procedure  for  solving  a  mathematical  problem 

alias  -  in  fractional  factorial  designs,  an  alias  is  a  group  of 

interactions  which  are  confounded  or  confused  with  a  main  effect  or 
another  interaction.  Each  member  of  the  alias  can  affect  the 
system  response  being  studied,  but  too  few  data  points  are  used  in 
fractional  factorial  designs  to  distinguish  among  the  members  of 
the  alias. 

alpha  -  level  of  significance  <  1  -  confidence  level  ).  Probability 
that  the  test  fails  when  in  actuality  it  does  not. 

ANOUA  -  analysis  of  variance.  A  means  of  comparing  statistical  entities 
and  performing  other  tests  by  comparing  the  variance  of  the 
entities.  If  the  variances  of  the  entities  are  similar,  the 
entities  are  assumed  to  be  the  same. 

APC  -  Advanced  Personal  Computer  by  NEC  Information  Systems 
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crater  -  one  effect  of  munition  impacts  on  a  target.  The  crater  is  the 
physical  depression  which  -forms  when  the  explosive  -force  o-f  the 
munition  ejects  earth  or  other  material  from  the  immediate  vicinity 
of  the  munition  impact  point.  The  term  can  also  include  areas  of 
buckling  and  cracking  which  extend  beyond  the  physical  hole. 

deflection  -  right  or  left  of  a  target.  Deflection  is  referenced 
perpendicular  to  the  munition's  ground  track. 

DEP  -  deflection  error  probable 

deterministic  -  a  problem  which  can  represented  with  certainty  by 
mathematical  equations.  This  is  contrasted  with  stochastic 
processes  in  which  particular  outcomes  may  vary  when  tested  several 
times  under  the  identical  circumstances  (within  the  analyst's 
ability  to  control  the  circumstances), 

DEW  -  deviation 

discrete  -  a  variable  which  can  assume  only  fixed  values.  For  instance, 
one  bomb,  one  sortie,  0.05  probability,  etc. 

dud  -  a  munition  which  did  not  function  properly 

editor  -  computer  software  which  facilitates  creation  of  or  changes  to 
computer  files. 

execution  -  computer  processing  of  a  computer  program 

extrapolate  -  an  estimation  of  unknown  data  based  on  known  data 

factorial  -  a  statistical  design  in  which  all  possible  combinations  of 
the  independent  variables  are  tested.  The  levels  of  the  variables 
are  usually  restricted  to  either  two  or  three  to  limit  the  possible 
number  of  combinations. 

finite  -  measurable 

fit  -the  process  of  calculating  a  mathematical  equation  which  either 
contains  all  design  points  of  interest  or  minimizes  the  deviations 
fra*  the  actual  points. 

FUR  -  forward  looking  infrared.  A  device  used  at  night  or  during  poor 
visibility  conditions. 

floating  point  coprocessor  -  an  arithmetic  processing  unit  which 
performs  math  calculations  more  quickly  than  normal  microcomputer 
processors 

FORTRAN  -  Short  for  'Formula  Translator.*  A  high-level  computer 
programming  language  available  on  many  large  and  small  computers. 
FORTRAN  is  designed  for  rapid  scientific  calculations. 


•fractional  factorial  -  a  statistical  design  which  uses  a  portion  of  the 
full  factorial  set  of  combinations.  The  number  of  required  design 
points  is  reduced,  but  aliases  result. 

F-statistic  -  the  test  statistic  for  ANOUA.  Used  to  compare  the 
variance  of  two  or  more  entities. 

fuze  -  the  device  which  causes  a  munition  to  function.  In  many  cases,  a 
fuze  is  a  small  explosive  device  which  triggers  the  larger,  but 
more  stable,  charge  within  the  main  munition. 

GST  -  Graduate  Strategic  and  Tactical  Sciences 

hardened  -  potential  targets  which  have  been  modified  to  withstand 
attack, 

HQ  -  headquarters 

hyperplane  -  the  surface  described  by  a  mathematical  equation  in  more 
than  two  independent  variables.  Conceptually,  a  plane  results  when 
linear  combinations  of  two  independent  variables  are  formed.  A 
hyperplane  uses  the  same  idea,  but  the  conceptualization  is  more 
difficult  due  to  the  lack  of  physical  examples. 

IBM  -  International  Business  Machines 

interval ometer  -  a  device  which  sends  release  pulses  to  weapons  stations 
at  a  selected  time  interval 

intrinsic  ~  a  pre-defined  computer  function  which  is  available  for  use 
by  the  programmer 

inverse  < exact)  -  a  precise  method  of  generating  random  variates 

iteration  ~  on*  pass  through  a  particular  algorithm.  In  this  analysis, 
number  of  samples,  replications,  and  iterations  have  similar 
meanings,  depending  on  the  context, 

JMEM  -  Joint  Munitions  Effectiveness  Manuals 

lanchester  equations  -  differential  equations  which  purport  to  describe 
various  types  of  military  conflict 

language  -  a  system  of  computer  constructs  which  the  programmer  can 
combine  to  make  desired  calculations  and  print  desired  output 

least-squares  -  a  mathematical  method  which  fits  an  equation  to  a  set  of 
data  points 

lethality  -  the  ability  of  a  munition  to  achieve  a  desired  level  of 
effectiveness 
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linear  -  characterized  by  straight  lines.  In  mathematical  terms,  linear 
conditions  mean  that  -first-order  terms  are  considered)  there  are  no 
interaction  terms  or  squared  terms. 

main-frame  -  a  large  computer  capable  o-f  many  operations  per  second. 
Main-frame  computers  are  not  portable  and  require  extensive  support 
facilities. 

MANOUA  -  multivariate  analysis  of  variance 

MCL  -  minimum  clear  length.  The  minimum  length  required  by  an  aircraft 
to  takeoff  and/or  land  successfully. 

MCW  -  minimum  clear  width.  The  minimum  width  required  by  an  aircraft  to 
takeoff  and/or  land  successfully. 

microcomputer  -  A  self-contained  computer,  relatively  less  capable  and 
smaller  than  mainframe  computers.  In  many  instances,  can  be 
transported  easily. 

model  -  a  representation  of  a  real-world  situation.  Models  usually 
employ  simplifying  assumptions  to  permit  analysis  in  a  timely 
manner.  The  assumptions  can  be  the  most  limiting  factor  of  a 
particular  model, 

modulus  -  an  arithmetic  operation  whereby  a  remainder  is  produced.  For 
instance,  11  modulus  3  is  2  since  3  divides  into  11  three  times 
with  a  remainder  of  2. 

Monte  Carlo  -  a  simulation  technique  which  uses  random  numbers  to 
evaluate  a  stochastic  process.  A  complex  situation  may  require 
many  such  numbers  for  a  single  iteration.  Many  iterations  are 
performed  and  then  averaged  to  calculate  an  "expected*  response 
from  the  system  under  average  circumstances. 

MS  -  mean  square)  also,  Master  of  Science. 

normal  -  a  probability  distribution  which  is  characterized  by  the  "bell* 
curve.  The  normal  distribution  is  used  extensively  in  modeling 
various  error  tolerances  and  occurrences. 

optima  -  the  most  desirable  or  beneficial  combination  of  independent 
variables  giving  the  best  system  response. 


p-value  -  the  critical  level  of  significance  at  which  a  particular  test 
would  change  answers.  For  instance,  a  p-value  of  8.95  might 
indicate  that,  with  a  desired  level  of  confidence  lower  than  this 
value,  a  certain  statistic  •passed"  the  test,  while  a  higher  level 
of  confidence  would  result  in  'failing"  the  test.  In  statistical 
experiments,  the  level  of  confidence  is  set  ahead  of  time,  so  the 
p~vaiue  is  compared  to  the  preset  level  of  confidence.  Suppose 
that  the  level  of  confidence  was  chosen  to  be  8.18.  A  p-value  of 
9.85  would  mean  the  test  had  been  "passed"  tactually,  the  test 
failed  to  reject)  while  a  p-value  of  8.15  would  "fail"  the  test. 

pair  -  two  bombs  which  are  released  simultaneously  from  weapons  stations 

PASCAL  -  a  programming  language  which  uses  structured  programming  and 
emphasizes  calculation  and  mathematical  formulations 

polygon  -  a  shape  which  is  defined  by  several  planes 

polynomial  -  an  equation  which  does  not  include  complex  functional 
relationships.  The  independent  variables  may  be  combined  only  with 
integer  exponents.  The  variables  can  multiply  one  another  to 
produce  interaction  terms. 

portable  -  computer  programs  which  can  run  on  a  wide  variety  of 
computers.  For  microcomputers,  portability  can  also  include  the 
ability  to  physically  transport  the  machine  from  one  location  to 
another . 

power  of  a  test  -  the  probability  of  incorrectly  failing  to  reject  a 
null  hypothesis  <i.e.  thinking  the  test  passed  when  it  should  not) 

predicted  response  -  the  result  calculated  by  inserting  values  for 
independent  variables  into  a  regression  equation 

processor  -  that  portion  of  an  electronic  computer  which  performs 
arithmetic  and  other  operations 

quadratic  -  a  second-order  equation 

quantifiable  -  a  variable  which  can  be  compared  to  a  number  scale 

RADAR  -  radio  detection  and  ranging 

RAM  -  random  access  memory.  The  memory  a  microcomputer  uses  to  store 
data  and  computer  code 

random  -  occurrences  which  are  not  predictable  in  any  fashion 

regression  -  a  mathematical  procedure  by  which  an  equation  is  calculated 
to  represent  a  set  of  data  points. 


REP  -  range  error  probable 


replication  -  a  repetition  of  a  particular  design  point  using  a 
different  random  number  stream.  Replications  are  used  to  determine 
the  variance  of  a  particular  system  response. 

resolution  -  the  degree  to  which  a  particular  fractional  factorial 
design  avoids  aliasing.  Resolution  111  designs  have  no  main 

effects  aliased  with  one  another,  resolution  IV  designs  have  no 
main  effects  aliased  with  each  other  or  2-factor  interactions,  and 
resolution  V  designs  have  no  main  effect  or  2-factor  interaction 
aliased  with  any  other  main  effect  or  2-factor  interaction. 
Increasing  numbers  of  design  points  are  required  to  achieve  the 
higher  resolutions. 

RSM  -  response  surface  methodology 

saddle  point  -  a  stationary  point  which  is  neither  a  maximum  nor  a 
minimum;  in  2-diroension  space,  an  inflection  point. 

SAM  -  surface-to-air  missile 

screening  -  a  statistical  experiment  which  is  performed  to  determine  the 
significance  of  various  independent  variables 

sectioning  -  a  method  of  response  surface  methodology  which  searches  for 
optimal  operating  conditions.  One  independent  variable  is 

considered  at  a  time.  The  method  of  steepest  ascent  is  preferred 
over  sectioning. 

seed  -  the  starting  number  for  a  random  number  generator 

sensitivity  -  the  degree  to  which  a  system  response  may  be  affected  by 
changes  in  independent  variables,  probability  distributions,  and 
assumptions 

sigma  -  the  standard  deviation  of  a  normal  distribution 

significance  -  a  measure  of  the  desired  degree  of  accuracy.  The  level 
of  significance  is  the  probability  of  incorrectly  failing  to  reject 
the  null  hypothesis  <i.e,  assuming  the  test  passed).  Failing  to 
reject  near  the  level  of  significance  results  in  low  power  of  the 
test. 

singles  -  the  release  of  one  munition  at  a  Mm 

SS  -  sum  of  squares 

star  -  the  physical  representation  of  a  central  composite  design.  In 
three  independent  variables,  the  factorial  portion  of  the  design 
forms  a  box  while  the  axial  points  form  the  star. 

stationary  point  -  a  point  which  may  be  a  local  minimum,  a  local 
maximum,  or  a  saddle  point.  An  optimum  point  must  occur  at  a 
stationary  point,  but  not  all  stationary  points  will  be  optimum. 
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steepest  ascent  -  used  in  -first-order  response  sur-face  methodology  to 
■find  optima]  operating  conditions.  Steepest  ascent  is  preferred  to 
sectioning  since  steepest  ascent  considers  any  pertinent  variables 
simultaneously  in  climbing  a  local  gradient. 

stick  -  a  series  of  weapon  impacts 

Student's  t-statistic  -  used  to  compare  the  average  values  of  statistics 

suboptimizing  -  for  fixed  levels  of  overall  system  response  or  fixed 
levels  of  selected  independent  variables,  the  remaining  independent 
variables  are  optimized.  If  overall  system  response  is  fixed,  the 
independent  variables  of  interest  are  adjusted  to  the  most 
favorable  (least  costly)  combination  to  achieve  the  response.  If 
some  of  the  independent  variables  are  fixed,  the  remaining 

variables  are  adjusted  until  the  optimum  system  response  is 
achieved. 

survivability  ~  the  probability  of  not  being  killed  during  a  tactical 
mission 

system  response  -  for  this  analysis,  probability  of  runway  cut,  expected 
number  of  craters  to  fill  to  open  a  minimum  clear  strip,  and  the 
expected  area  to  fill  to  open  a  minimum  clear  strip 

TAC  -  Tactical  Air  Command  or  tactical 

T#»H  -  Tactical  Air  War  Model 

theater  -  a  large  area  of  operations  such  as  Europe 

triangular  distribution  -  a  probability  distribution  completely 
described  by  a  mean  and  two  endpoints. 

liSAF  -  United  States  Air  Force 

USAFE  -  United  Stated  Air  Forces  in  Europe 

validation  -  comparison  of  a  model  and  its  output  to  real-world  results 

variate  -  usually  a  random  varUtei  a  variable  which  behaves  in 
accordance  with  a  particular  probability  distribution 

verification  -  checks  of  computer  code  to  ensure  that  the  computer 
program  accurately  reflects  ih©  intended  model, 

x-value  -  the  particular  value  of  an  independent  variable 

y-value  -  the  particular  value  of  a  dependent  variable 

E-value  -the  random  variate  corresponding  to  a  particular  level  of 
probability. 
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